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

my @twoDArray = (
    [1, 2, 3, 4],
    [5, 6, 7, 8],
    [9, 10, 11, 12, 13]
);

# Avoiding indexes
for my $rows (@twoDArray) {
    for my $value (@$rows) {
        print "$value ";
    }
    
    print "\n";
}

print "\n";

# Using indexes
for my $rIdx (0 .. $#twoDArray) {
    for my $vIdx (0 .. $#{$twoDArray[$rIdx]}) {
        print "$twoDArray[$rIdx][$vIdx] ";
    }
    
    print "\n";
}

##</code><code>##

1 2 3 4 
5 6 7 8 
9 10 11 12 13 

1 2 3 4 
5 6 7 8 
9 10 11 12 13