#!/usr/bin/perl -w
use strict;
use Dumpvalue;

###how I would normally do it.
my @cells;
for(my $i=0; $i<3; $i++){
	push(@cells,[[],[],[]]);
}

###a different approach.
my @othercells;
@othercells = ([[],[],[]]) x 3;

###lets check shall we?
print "Content-Type:text/html\n\n";
dump_ref(\@cells);
dump_ref(\@othercells);
exit;

###peek under the hood.
sub dump_ref
{
	my $ref = shift;
	my $dumper = new Dumpvalue;
	print "<pre>";
	$dumper->dumpValues($ref);
	print "</pre>";
	print "<br />";
}