If you don't like the sort-cut sort is offering you, you can always be explicit:

sort {$a cmp $b} rv @list;
[download]