my @array = (1,2,3);
my @2darray = (\@array, \@array, \@array);

#or

my @3darray = (
                [
                  [11,12,13],
                  [21,22,23],
                  [31,32,33]
                ]
              );

print $3darray[0][3][3]; # yields 33