I've set {$a<=>$b} to show you how to change the way the list should be sorted...
You could sort on :
key decreasing order : {$b<=>$a}
values-> {$hash{$a}<=>$hash{$b}}
key length -> {length{$a}<=>length{$b}}
or whatever...