use List::MoreUtils qw/uniq/;

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

my @uAoA = uniq(@AoA);

print Dumper \@uAoA;

##</code><code>##

$VAR1 = [
          ['a','b','c],
          ['a','b','d']
        ];