After you create @combos you can sort it as follows:

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

--
John.