Select Code to Download

        if (eval "$hash{$filter[0]->[0]} $filter[0]->[1] $filter[0]->[
+2]")
        {
...
                }    
            }
        }

    sub match {
        my ($hash, $filter) = @_;
...
    ) {
        print OUTFILE $line, "\n";
    }