my @sorted_keys = sort keys %conwithpostion;
my @sorted_cols = sort {$a <=> $b} keys %cols_pos;

my %dispatch = (
    '='  => sub {$_[0] eq $_[1]},
    '!=' => sub {$_[0] ne $_[1]},
    '>'  => sub {$_[0] gt $_[1]},
    '>=' => sub {$_[0] ge $_[1]},
    '<'  => sub {$_[0] lt $_[1]},
    '<=' => sub {$_[0] le $_[1]},        
);

for (@array) {
    my $match = 0;
    my @line = split /\t/;
    for my $key_pos (@sorted_keys) {
        my ($op, $arg1, $arg2) = (@{$conwithposition{$key_pos}}[0, 1], $line[$key_pos]);
        $match = $dispatch{$op}->($arg1, $arg2);
        last if ! $match;
        my $col = $sorted_cols[-1];
        push @listcols, $col;
        push @result_arr, join '|', @line[@sorted_cols];
    }
}