NAME: foreach my $name ( @name_array ) { FILE: foreach my $file ( @files ) { open my $fh, '<', $file or die "Can't read '$file': $!"; while ( my $line = <$fh> ) { chomp $line; if ( lc $line eq lc $name ) { print OUTPUTFILE "$line\n"; next FILE; } } } }