use XML::Simple;
use Data::Dumper;
my $hash= {
 'root' => {
   'item1' => {
      'item1a' => 'n1', 'item1b'=>'jh'
   }
  }
};
my $xs = new XML::Simple;
my $xml = $xs->XMLout($hash, NoAttr => 1, RootName=>undef,);
print Dumper $xml;

##</code><code>##

<root>
    <name>item1</name>
    <item1a>n1</item1a>
    <item1b>jh</item1b>
  </root>

##</code><code>##

<root>
    <item1>
      <item1a>n1</item1a>
      <item1b>jh</item1b>
    </item1>
  </root>