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