# open file 
open(FILE, "kshfiles.txt") or die("Unable to open file"); 
 
# read file into an array 
my @kshNames = <FILE>; 
 
foreach (@kshNames) { 
    open(kshFile, $_); 
    ... 
} 
 
# close file 
close(FILE);