Select Code to Download

my @a = (1..16);
my $kid_size = 3;
...
foreach my $i (0..$num) {
   print "b($i): ", join(",", @{$b[$i]}), "\n";
}