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