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