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