Select Code to Download

if ((eval "$hash{$filter[0]->[0]} $filter[0]->[1] $filter[0]->[2]") &&
+ 
   (eval $hash{$filter[1]->[0]} $filter[1]->[1] $filter[1]->[2]) &&
...
     {
        print OUTFILE $line, "\n";
     }

sub check {
 my ($a, $check, $b) = @_;
...
if (&check($hash{$filter[0]->[0]},$filter[0]->[1],$filter[0]->[2]) && 
+&check(...) && &check(...)) {
 print OUTFILE $line;
}