for (values %hash1) {
  $_ = $hash2{$_} if exists $hash2{$_};
}