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;
}