greycat 1551215022 learn perl -e 'print sort {length($a) <=> length($b)} <>'