@sorted_array = sort { $b cmp $a } @array;