>perl -wMstrict -le
"my $data = [ {'name' => 'Mary'} ];
 ;;
 print qq{---$data->[0]{name}---};
"
---Mary---