Select Code to Download

 foreach $key (keys %hash1) {
   if (exists $hash2{$key}) {
     print "$key\n";
     }
   }

$filename1 = shift;
$filename2 = shift;
...
        }

close IN;