@array = qw (1 1 0 2 0 1 3 0 0 4 1 1); 
my $i; 
print $_, ((++$i%3)?",":"\n") for (@array);