for (keys %a) {
    $a{$_} = $b{$_} || $a{$_};
}