%a_b = map {exists $b{$_} ? ($_ => $b{$_}) : ()} keys %a;