DB<43> print join "\n", sort { length($b)<=>length($a) } @substr CCCCCC GGGG AAA TTT TTT TTT TT TT AA GG GG TT AA TT TT DB<44>