my @k = grep { exists $b{$_} } keys %a;
@a{@k} = @b{@k};