sort { $b->[0] cmp $a->[0] }

##</code><code>##

sort { $b->[$i] cmp $a->[$i] }