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