foreach(keys %a){
  $a{$_} = $b{$_} if exists $b{$_};
}