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