%foo = (
 a => 1,
 b => 2,
 c => 3,
);

push @bar, %foo;

print $bar[0], "\n";

##</code><code>##

for my $foo (@bar) {
  print keys (%$foo), "\n";
}