my %uniq;
my @new_AOA = grep {
    !( $uniq{$A->[1] . '-' . $A->[3]}++ )
} @AOA;