if ($match){
        my @tmp = @line[@sorted_cols];
        print "@tmp\n";
        push @arraynew, [@tmp];
    }