while (@array) { print join(',', splice @array, 0, 3) . qq/\n/ }