foreach $name (@name_array) { $wanted_name = ($name); foreach $file (@files) { open (FILE, $file); @array = ; close(FILE); foreach $line (@array) { if ($line =~ m/$wanted_name/i) { print OUTPUTFILE "$line"; } } } } close(OUTPUTFILE);