mkdir $_ for sort { length $a <=> length $b } values %DIR;