Select Code to Download

#!c:/perl/bin/perl -w
$|++
...

my $bar;
print join(', ', (++$bar) x 4), "\n";

my @othercells = map { [[],[],[]] } 1..3;
# or
my @othercells;
push @othercells, [[],[],[]] for 1..3;