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