for my $dir (grep -d, glob '*') {