Select Code to Download

my $ref = $xmlParser->XMLin(<<'EOX', ForceArray => 1, KeyAttr => { nod
+e => 'id' });
<?xml version="1.0" encoding="utf-8"?>
...
  </node>
</test>
EOX

$VAR1 = {
          'node' => {
...
                                   }
                  }
        };

push(@{$ref{'node'}},{
  'id'   => 'net_1.2.3.0',
  'desc' => 'network',
});

push @{$ref{node}}, {
    'net_1.2.3.0' => {
        desc => ['network']
    } 
};

<?xml version="1.0" encoding="utf-8"?>
<test>
...
    <desc>ipaddr</desc>
  </node>
</test>