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