@different=grep { $hash1{$_} ne $hash2{$_} } keys %hash1;
foreach (@different) {
  print "hash1{$_}: $hash1{$_}\n";
  print "hash2{$_}: $hash2{$_}\n--\n";
}