Select Code to Download

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

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