my @array1 = (['a', 'b'], ['c', 'd']);

my @ab = qw(a b);
my @cd = qw(c d);
my @array2 = (\@ab, \@cd);

my @array3;
push @array3, \@ab;
push @array3, \@cd;

my @array4;
push @array4, (\@ab, \@cd);

##</code><code>##

print "$array1[0][0]\n\n";

for (my $x = 0; $x < @array1; ++$x) {
    for (my $y = 0; $y < @{$array1[$x]}; ++$y) {
        print "$array1[$x][$y] ";
    }

    print "\n";
}

print "\n";
print "@$_\n" for @array1;

##</code><code>##

a

a b 
c d 

a b
c d