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