Help for this page
my %a1; undef @a1{@a1}; my @in_both = grep { exists $a1{$_} } @a2;
my (%a1, %a2); undef @a1{@a1}; undef @a2{@a2}; my @in_both = grep { exists $a1{$_} } keys %a2;
www.com | www.net | www.org
No recent polls found