use Data::Dumper;
use List::MoreUtils qw(uniq);

use strict;
use warnings;

my $a = ['a','b','c'];
my $b =  ['a','b','d'];
my @AoA = ($a, $a, $b, $b);
my @uAoA = uniq(@AoA);
print Dumper(\@uAoA);