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