my @byLength = sort{ length($a) <=> length($b) } @Names;