mkdir $_->[0] for sort { $a->[1] <=> $b->[1] } map [ $_, length $_ ], values %DIR;