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