my %seen_values;
my @new_AofA = map { $seen_values{$_->[0]}{$_->[1]}++ ? () : $_ } @AofA;