... (sort {length $sequences{$a} <=> length $sequences{$b} } keys ...