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