my $path = "C:/temp/stuff"; #### open (PATH, "c:/logs/paths.txt"); my @directories = ; close (PATH); #### foreach (@directories) { if ($path eq $_) { stuff } }