Help for this page

Select Code to Download

Select or download this
```
print join ',', @boxes;
```

Select or download this

my $printed = 0;
foreach my $box ( @boxes ) {
    print ',' if $printed++;
    print $box;
}