my @arr = ([1,2],[3,4]);

for (@arr) {
    for (@$_) {
        print "$_\n";
    }
}

##</code><code>##

use strict;
use warnings;

my ($x, $y);
my @arr = ([1,2],[3,4]);

for $x (0..$#arr) {
    for $y (0..$#{$arr[$x]}) {
        print "\$arr[$x][$y] = $arr[$x][$y]\n";
    }
}