my $datafile = "C:\\HELP\\PerlScripts\\Test2.dat";
my (@PATHS);
open (DATAFILE,"< $datafile");

while (defined (my $line = <DATAFILE>)) {
    chomp($line);
    push (@PATHS,$line);
}

foreach my $path (@PATHS) {
    if (-d $path) {
        print "Found $path \n";
    } else {
        print "DID NOT FIND $path \n";
    }
}