Select Code to Download

    while (chomp ($line = <$gsr>)) {
        my @l1;
...
        print(join($tab,@l1[@okc]));
        print(join($tab,@l1[@okc]));
    }

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

235µs    local @l1;
1.18s    @l1 = split $tab, $line;
...
807ms    print(join($tab,@l1[@okc]));
794ms    print(join($tab,@l1[@okc]));
1.65s    print(join($tab,@l1[@okc]));