Given this:

my @AoA = (
    ['a','b','c'],
    ['a','b','c'],
    ['a','b','d'],
    ['a','b','d'],
);
[download]

I wish to return simply this:

my @uAoA = (
    ['a','b','c'],
    ['a','b','d'],
);
[download]

From the original posting in SoPW, one can find many answers. One of them is (by TedPride), seems to me to be the most compact of them all:

use strict;
use warnings;
use Data::Dumper;

my @AoA = (
    ['a','b','c'],
    ['a','b','c'],
    ['a','b','d'],
    ['a','b','d'],
);

my (%h, @uAoA);
for (@AoA) {
    push @uAoA, $_ if !$h{join $;, @$_}++;
}

print Dumper \@uAoA;
[download]

Originally posted as a Categorized Question.