Hello,
In addition to what Laurent_R said, maybe you need to do

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

close IN;
[download]

by initializing $key with my ..?