@add = ();
open (TA, "Table_C22-17")  || die "Can't open file";
while (<TA>) { $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";