Select Code to Download

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

my $ranges = [
               { I => 2 },
...
    # ...
    print Dumper $array;
}

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

$array->[4]->[3]->[2] = $netlist;