while (<$fh>) {
  foreach my $subset (keys %lookingFor) {
    foreach my $item (@{$subset}) {
      if (<$fh> =~ m/$item/) {
        my $writeFh = new FileHandle ">> myout.log";
        print $writeFh <$fh>;
      }
   }
}