foreach(@dir) {
    if (-d$_) {print $_," is a directory.\n";
}