perl -MData::Dumper -e"$a[1][2][3]=4;print Dumper\@a"
$VAR1 = [
          undef,
          [
            undef,
            undef,
            [
              undef,
              undef,
              undef,
              4
            ]
          ]
        ];