foreach $file (@files){

open(IN, "$file") or die ("Cannot open file $file!\n");

$promnum = 0;
$stop = 0; 

while ($stop == 0){
	
	while (<IN>) {....