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;
}