@sort = sort {$b <=> $a} @array;