Select Code to Download

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

my $q  = "Q";
my @p  = qw(pee pea);
...
         );
   print ((++$i%3) ? "," : "\n" );
}