@combos = reverse sort {length(uc($a)) <=> length(uc($b))} @combos;