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