sort{$b<=>$a}@arr

##</code><code>##

sort{$b-$a}@arr