Help for this page

Select Code to Download

Select or download this

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