如何将XML :: Simple与可能具有一个或多个子元素的XML标记一起使用？

cpan install XML::Simple

use XML::Simple;

my $xml = new XML::Simple;
my $data = $xml->XMLin("example.xml");

<root>
 <element>
   <child>Child 1</child>
   <child>Child 2</child>
  </element>
</root>

foreach my $child (@{$data->{element}->{child}}) {
  print $child . "\n";
}

Child 1
Child 2

my $new_data = {
  root => {
    element => {
      child => ["Child 1", "Child 2", "Child 3"]
    }
  }
};

$xml->XMLout($new_data, OutputFile => "new_example.xml");