my @l1;
while (chomp ($line = <$gsr>)) {
    @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]));
}