All you need is:

$table->[$row][$col] = \@foo;
[download]

to be dereferenced by:

my $foo = $table->[$i][$j][$k];
[download]

After Compline,
Zaxo