examples/references/many_dimensional_array.pl
#!/usr/bin/perl
use strict;
use warnings;

use Data::Dumper;

my @dim;
$dim[0] = "zero";
$dim[1][0] = "one-zero";
$dim[1][1][1] = "one-one-one";
$dim[2][0][0] = "two-zero-zero";

print Dumper \@dim;
examples/references/many_dimensional_array.out
$VAR1 = [
          'zero',
          [
            'one-zero',
            [
              undef,
              'one-one-one'
            ]
          ],
          [
            [
              'two-zero-zero'
            ]
          ]
        ];