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