use 5.010;
my @s;
while (<DATA>) {
    my @e = split;
    $s[$_] += $e[$_] for 0 .. $#e;
}
say "@s";