for my $row (@{$table}) { for my $column (@{$row}) { print "$column\n"; } } #### 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