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