use strict;
use warnings;
use Data::Dumper;

my $data = [

{
'name' => 'Mary'
},

];

#my $test = $data[0]{1};
#my $test = $ { $data} { name };
#my $test = @{ $data} { name };
my $test =  $data->{ name };
print "\n - $test \n";
warn Dumper $test;