while (my $line = <>) {
    my @column = split(' ', $line); 
#    $sum[$_] += $column[$i] for 0..$#column;
# line corrected by mjscott7202 into:

    $sum[$_] += $column[$_] for 0..$#column;

}