C:\test>perl -F\t -anle"$sums[$_]+=$F[$_] for 0 .. $#F; }{ printf qq[Column:%u total:%u\n], $_, $sums[$_] for 0 .. $#sums"
1       2       3
4       5       6
7       8       9
^Z
Column:0 total:12
Column:1 total:15
Column:2 total:18