Select Code to Download

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

foreach my $key (keys %hash)
   {
     my $value=$hash{$key};