while(my ($key1,$value1)=each(%hash1)){
    if (exists $hash2{$key} ) {
         my $value2 = $hash2{$key}
         ...
     }
}