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

push @bar, %foo;

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