my %seen;
my @aoa = grep { not $seen{join " ", map quotemeta, @$_}++ } @AoA;