Select Code to Download

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

}