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

##</code><code>##

sub check {
 my ($a, $check, $b) = @_;
 if ($check eq "==") {
  return $a == $b;
 } elsif ($check eq ">=") {
  return $a >= $b;
 } elsif ($check eq "<=") {
  return $a <= $b;
 } elsif ($check eq "eq") {
  return $a eq $b;
 } else { die "Unimplemented check $check" }
}
if (&check($hash{$filter[0]->[0]},$filter[0]->[1],$filter[0]->[2]) && &check(...) && &check(...)) {
 print OUTFILE $line;
}