Use a sort block and switch the positions of the special variable $a and $b

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

Another option is:

@sorted=reverse sort @unsorted #for strings
[download]