pp grep { state %seen; $seen{$_}++ } keys %a, keys %b;