foreach(@dir) {
    my $path = "$dir/$_";  # prepend dir
    if (-d $path) {print $path," is a directory.\n";}
    elsif (-f $path) {print $path," is a file.\n";}
    else {print $path," is not a file or a directory!\n";}
}