reverse sort{$a<=>$b} @list