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