my $newds = @{$new} Data::DumXML::Parser output # NEW DATA STRUCTURE WITH ARRAY REF $VAR1 = [ bless( { 'tree' => { 'aggregatePsExtentTable' => { '1' => 'aggregatePsExtentEntry' Data::Dumper output # ORIGINAL DATA STRUCTURE $VAR1 = bless( { 'tree' => { 'aggregatePsExtentEntry' => { '1' => 'aggPsExtentIndex',