use strict;
use warnings;

my @sums;
$sums[$_] = 0 for 0..20;

while (<DATA>) {
	my @fields = split /\s+/, $_;
	for (0..20) {
		$sums[$_] += $fields[$_] if defined $fields[$_];
	}
}
print "@sums", "\n";

__DATA__
1    2    3    4	6
3    4    5    6
6    7    8    9