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

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