for (0..@array/3-1) {
    local ($,, $\) = (',', "\n");
    print @array[3*$_ .. 3*$_+2];
}
[download]

See perlvar and perldata