Help for this page

Select Code to Download


  1. or download this
    DB<2> $seen{$_}++ for (keys(%a), keys(%b))
DB<3> x grep { $seen{$_} > 1 } keys(%seen)
  2. or download this
    use Data::Dump;

...

my %seen;
pp grep { $seen{$_}++ } keys %a, keys %b;
  3. or download this
    pp grep { state %seen; $seen{$_}++ } keys %a, keys %b;