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