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