$ perl -wE '$data = [{"data" => "foo"}]; say @$data[0]->{"data"}'
foo

##</code><code>##

$$data[0]{"data"}