Are you seeing what you expect when you print $prompt and $promptfile to STDERR? If not, figure out why. (One hint: you probably want to chomp your lines from your input file. A trailing newline will mess up the last filename on the line, at least.) If those are okay, put similar print statements inside your foreach loop to print variables like $word and $file, to see when you stop getting the results you expect.