http://qs321.pair.com?node_id=1062261


in reply to Re: Sort over remaining part of array
in thread Sort over remaining part of array

The OP said descending order, so the key codeline should probably be:

@AoA[2..$#AoA] = sort { $b->[0] <=> $a->[0] } @AoA[2..$#AoA];
But that is only a detail.