for (sort { $b <=> $a } @array_of_loci)

##</code><code>##

for (sort { $a <=> $b } @array_of_loci)