@combos = sort {length $b <=> length $a} @combos;