@array = sort {!$b - !$a} @array;