INDIV 16051347(G-C) 16051497(A-G) 16052239(A-G) 16052513(G-C) 16052618(G-A) 16053659(A-C) 16054667(C-G) HG00096.M 0 0 0 1 1 1 1 1 0 0 0 0 0 HG00096.P 0 0 1 0 0 0 0 1 0 0 0 0 0 HG00097.M 1 1 0 0 0 0 0 0 0 0 0 1 0 HG00097.P 0 0 1 0 0 1 0 1 1 1 0 0 0 HG00099.M 1 1 0 0 0 0 0 0 0 0 0 0 0 HG00099.P 0 0 0 0 1 1 0 0 1 1 0 1 0 HG00100.M 0 0 1 1 1 1 1 1 1 1 1 1 1 HG00100.P 1 1 0 0 0 1 0 0 1 1 0 1 0 HG00101.M 1 1 0 0 0 1 0 0 1 1 0 1 0 HG00101.P 0 0 1 1 1 1 1 1 1 1 1 1 0 HG00102.M 1 1 0 0 0 0 0 0 0 0 0 1 0 HG00102.P 0 0 1 0 0 1 0 1 1 1 0 1 0 ##

##

1       1       1       0       0       1       0       1       1       1       0       1        0 

##

##

@add = ();
open (TA, "Table_C22-17")  || die "Can't open file";
while () { $c++;
        if ($c > 1) {$count++; @a = split /\t/,$_;
                chop ($a[0]);
                for $x (0..$#a) {
                        if ($count <= 2) {
                        $add[$x] += $a[$x];
                        push (@tl, $add[$x]);
                        next;
                        }
                }
        }

}
$count = 0;
print "@tl\n";