Select Code to Download

#!/usr/bin/perl
use strict;
...
));

print Dumper \%ref;

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

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

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

# create 1st node
push(@{$ref{'node'}},{
...
  'desc' => ['ipaddr'],
  'data' => ['testdata2'],
});