Nice. The int is not necessary:

$output[$_/3] += $arr[$_] for 0 .. $#arr;
[download]