in reply to Remove Duplicates from an Array of Arrays

my %seen;
for (0 .. $#AoA) {
  print "$AoA[$_][0] -> $AoA[$_][1]\n"
    unless $seen{$AoA[$_][0]}{$AoA[$_][1]}++;
}

[download]

(although that doesn't remove the duplicates, it just stops you from printing them)

--
<http://www.dave.org.uk>

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg

In Section Seekers of Perl Wisdom