@sequences = sort { length($b) <=> length($a) } @sequences