Select Code to Download

my %hash = (foo => 42, bar => 84);

...
foreach my $key (keys %hash) {
    print "$key => $hash{$key}\n";
}