map {mkdir $DIR{$_}} sort {length($DIR{$a}) <=> length($DIR{$b})} keys %DIR; [download]
In reply to Pascucci Paradigm for ordered operations on a homogenous hash (specificlaly, mkdir from hash) by JRPascucci