my $k = @arr / 3;
for (0..$k) {
    $output[$_] += $arr[3*$_] + $arr[3*$_+1] + $arr[3*$_ +2];
}