Select Code to Download

$VAR1 = [
          undef,
...
            ]
          ]
        ];

$VAR1 = {
          '3' => {
                   '5' => {
...
                          }
                 }
        };

perl -MData::Dumper -E '$A{3}{5}{0}="foo"; $v = $A{3}{5}; $v->{1}="bar
+"; die Dumper \%A'