c:\@Work\Perl>perl -wMstrict -le
"use feature qw/say/;
 use Data::Dump;
 ;;
 my @array = (
   { 'Fred'   => 'Flintstone',
     'Barney' => 'Rubble',
     }
   );
 ;;
 say $array[0]{'Fred'};
 ;;
 $array[0]{'Marge'} = 'Simpson';
 say $array[0]{'Marge'};
 ;;
 dd \@array;
"
Flintstone
Simpson
[
  { Barney => "Rubble", Fred => "Flintstone", Marge => "Simpson" },
]