my $ref = $xmlParser->XMLin(<<'EOX', ForceArray => 1, KeyAttr => { node => 'id' }); network ipaddr EOX #### $VAR1 = { 'node' => { 'ip_1.2.3.4' => { 'desc' => [ 'ipaddr' ] }, 'net_1.2.3.0' => { 'desc' => [ 'network' ] } } }; #### push(@{$ref{'node'}},{ 'id' => 'net_1.2.3.0', 'desc' => 'network', }); #### push @{$ref{node}}, { 'net_1.2.3.0' => { desc => ['network'] } }; #### network ipaddr