##
for my $row (@table2) {
for my $column (@{$row}) {
print "@{$column}\n";
for my $element (@{$column}) {
print "$element\n";
}
}
}
####
push (@{$table2[0][1]}, 13);
print "@{$table2[0][1]}\n"; # prints 10 11 12 13