$a{$_} = $b{$_} for (grep exists $b{$_}, keys %a);