Select Code to Download

for my $key (my @temp = keys %my_hash) {
  my $value = $my_hash{$key}    # and no need to change the code below
...
  . # some processing on the element
  .
}

my %new;
foreach my $key (keys %old}
...
             print STDERR "dropped key: $key\n";
      }
}