$output[int($_/3)] += $arr[$_] for 0..@arr-1;

##</code><code>##

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

##</code><code>##

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