73µs     my@l1;
1.71s    @l1 = split $tab, $line;
2.40s    @l1 = split $tab, $line;
2.33s    @l1 = split $tab, $line;
805ms    print(join($tab,@l1[@okc]));
798ms    print(join($tab,@l1[@okc]));
1.66s    print(join($tab,@l1[@okc]));