# 1A. not very anal, but more concise
for my $dir (glob "*") {
    # for a brief moment, $dir might not hold a directory's name
    next unless -d $dir; 
    ...
}