my @new_AofA = grep { !$seen{$_->[0],$_->[1]}++ } @AofA;