for my $row (@table2) {
    for my $column (@{$row}) {
        print "@{$column}\n";
        for my $element (@{$column}) {
            print "$element\n";
        }
    }
}