Select Code to Download

foreach my $key (keys %hash) { ... }

while (my ($key, $value) = each %hash) { ... }