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";
}