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

my @table;

my @tableCellData;

$tableCellData[0][0] = '0,0';
$tableCellData[0][1] = '0,1';
$tableCellData[1][0] = '1,0';
$tableCellData[1][1] = '1,1';

push @table, \$tableCellData[0][0];
push @table, \$tableCellData[0][1];
push @table, \$tableCellData[1][0];
push @table, \$tableCellData[1][1];

print $$_,"\n" for @table;

$tableCellData[0][1] = 'foo';
print "----\n";
print $$_,"\n" for @table;