Select Code to Download

%foo = (
 a => 1,
 b => 2,
...
push @bar, %foo;

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

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