sort{$b-$a}@arr