$ref->[2] = sort { $b->[0] cmp $a->[0] };