Open $fh for reading
Open $fh3 for writing

While (my $var = <$fh>) {
Chomp $var;
my @array1 = $var =~  (/Entry\s*(\d*)/);
foreach my $e (@array1) }
&querysub;
Open $fh for reading
While (<$fh>) }
if ($_ =~ /(.*Entry\s*\d*)(.*)/);
print $fh3 $1.” “.$qresult.$2.”\n”;
}
}
}