sub rv (@) { reverse @_; };

##</code><code>##

sort rv @list;

##</code><code>##

sort(rv(@list));

##</code><code>##

sort reverse @list;