Help for this page
my $a = [ { ... } }, ];
my $b = $a->[1]{BAR}; undef $a;
use Data::Dumper; print Dumper ($a,$b); ... 'BAR3' => 'yyyy' } };