Help for this page
DB<2> $seen{$_}++ for (keys(%a), keys(%b)) DB<3> x grep { $seen{$_} > 1 } keys(%seen)
use Data::Dump; ... my %seen; pp grep { $seen{$_}++ } keys %a, keys %b;
pp grep { state %seen; $seen{$_}++ } keys %a, keys %b;
www.com | www.net | www.org
No recent polls found