print for sort{length$a<=>length$b}sort{$a cmp $b}<>