my @dirs = grep { /\w/ && -d "$dir/$_" } readdir($dh);