Select Code to Download

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)'