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