Select Code to Download

use Data::Dumper;
use strict;
...
if (defined($a->[2]->[3]) && $a->[2]->[3] ne '') {#this is autovivific
+ation
}
print Dumper($a);

$VAR1 = [
          'abc',
...
          'cba',
          []   #this is autovivification
        ];