Select Code to Download

@sorted=sort{$b cmp $a} @unsorted; # for strings
@sorted=sort($b <=> $a) @unsorted; # for numbers

@sorted=reverse sort @unsorted #for strings