use strict;
use warnings;

my @array;
my %hash = (a => 1, b => 5, c => 11);
$array[1] = \%hash;

print "flat list:\n";

print join("\n",%{$array[1]});

print "\n\nkey-value-pairs:\n";

for my $k (keys %{$array[1]}) {
        print "$k => " . $array[1]->{$k} ."\n";
}

flat list:
c
11
a
1
b
5

key-value-pairs:
c => 11
a => 1
b => 5

#!/usr/bin/perl
use strict;
use warnings;

my @array;
my %hash = ( a => 1, b => 2, c => 3, d => 4 );
$array[0] = \%hash;
$array[1] = \%hash;
$array[2] = \%hash;

my $cnt=0;
for my $hash_ref (@array)
{
  print "POS: ",$cnt++,"\n";
  next unless( $hash_ref );
  while( my ( $key, $value ) = each( %$hash_ref ) )
  { print "    $key = $value\n"; }
}