#!/usr/bin/perl

use strict;
use warnings;

my %summen = ();

while (my $zeile = <DATA>) {
  chomp($zeile);
  my @spalten = split (/\t/,$zeile);
  $summen{$_+1} += $spalten[$_] for 0..$#spalten;
}
print "Summen:\n";
print "$_: $summen{$_}\n" for sort keys %summen;

1;

__DATA__
1234	1	3	4	99.3	8	9.22
234	1	3	4	99.3	8	9.22
34	1	3	4	99.3	8	9.22
4	1	3	4	99.3	8	9.22
4	1	3	4	99.3	8	9.22