foreach my $k ( keys %master ) { while ( my $line=<$foundfile> ) { #### sub searchfile { my $file=shift; # print "open $file\n"; foreach my $k ( keys %master ) { open my $foundfile, '<', $file or die "can't open $file"; my $first=<$foundfile>; while ( my $line=<$foundfile> ) { if ($line =~ m/$k/ ) { $master{$k}++ ; # print "$k found in $file\n"; } } close $foundfile; } } #### sub searchfile { my $file=shift; # print "open $file\n"; open my $foundfile, '<', $file or die "can't open $file"; my $first=<$foundfile>; while ( my $line=<$foundfile> ) { foreach my $k ( keys %master ){ if ($line =~ m/$k/ ) { $master{$k}++ ; # print "$k found in $file\n"; } } } close $foundfile; }