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

use strict;

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

##</code><code>##

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