DB<1> %a = (a => 1, b =>2, c => 3); %b = (b =>2, c => 1, d => 4)
  DB<2> $seen{$_}++ for (keys(%a), keys(%b))
  DB<3> x grep { $seen{$_} > 1 } keys(%seen)
0  'c'
1  'b'