Help for this page
perl -MData::Dumper -e ' my @AoA=( ... ["eight", "seven", "nine"]); my @r = grep{++$uniq{ join $; , sort @$_ } == 1 } @AoA; print "\@r is now:\n", Dumper(\@r), "\%uniq is now:\n",Dumper(\%uniq)'
www.com | www.net | www.org
No recent polls found