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

##</code><code>##

@a{keys %b} = values %b;