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

##</code><code>##

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]));

##</code><code>##

235µs    local @l1;
1.18s    @l1 = split $tab, $line;
1.79s    @l1 = split $tab, $line;
1.78s    @l1 = split $tab, $line;
824ms    print(join($tab,@l1[@okc]));
806ms    print(join($tab,@l1[@okc]));
1.61s    print(join($tab,@l1[@okc]));

92µs     our @l1;
1.77s    @l1 = split $tab, $line;
1.77s    @l1 = split $tab, $line;
1.77s    @l1 = split $tab, $line;
829ms    print(join($tab,@l1[@okc]));
820ms    print(join($tab,@l1[@okc]));
1.03s    print(join($tab,@l1[@okc]));

         #my @l1;
1.78s    @l1 = split $tab, $line;
1.77s    @l1 = split $tab, $line;
1.77s    @l1 = split $tab, $line;
810ms    print(join($tab,@l1[@okc]));
805ms    print(join($tab,@l1[@okc]));
1.01s    print(join($tab,@l1[@okc]));

1.80s    @l1 = split $tab, $line;
1.70s    my @l1 = split $tab, $line;
2.41s    @l1 = split $tab, $line;
807ms    print(join($tab,@l1[@okc]));
794ms    print(join($tab,@l1[@okc]));
1.65s    print(join($tab,@l1[@okc]));