for my $dir (glob '*/') {