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