my $writeFh = new FileHandle ">> myout.log";
my $is_subset = build_regexp(@allSubSets);

while (<fh>) {
    next unless /$is_subset/;
    print $writeFh <$fh>;   
}