There isn't truly such a thing as a 2d array in Perl. Just arrays of array references.

What you do is create an array, and push a reference to it.

my @a;
push @a, [ 'a', 'b' ];
push @a, [ 'c', 'd' ];

for my $row (@a) {
   for my $cell (@$row) {
      print("$cell ");
   }
   print("\n");
}
[download]

Update: Or with named arrays:

my @a;
push @a, \@arraya;
push @a, \@arrayb;
[download]