Select Code to Download

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

while ( my ($key, $value) = each (%hash)){
  print "$key => $value\n";
}