sub mycmp { length($b) <=> length($a) } sort mycmp @list; #### sort { length($b) <=> length($a) } @list;