Select Code to Download

 
#!/usr/bin/perl

...

    }
}

column relationship value filter_or_append order
a      <=           0.3   filter           1
b      =            abc   append           3
c      <=           0.3   filter           2

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

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