mate you're wrong,
with perl you don't have to do any of what you're doing.

while(@a = split /\t/, <DATA>){
    $b[$_] += $a[$_] for 0..$#a;
}

print "@b\n";

__DATA__
1    2    3    4
5    6    7    8
9    10    11    12
[download]