#!/usr/bin/perl
use strict;
use warnings;

use XML::Simple;
use Data::Dumper;

my $hashref = { parent => {
                                                one => { name => "aname", other => "something"},
                                                two => { name => "anothername", stuff => "bladder"}
                                            }
                         };

print Dumper($hashref). "\n";
print XMLout($hashref). "\n";

$VAR1 = {
          'parent' => {
                        'one' => {
                                   'other' => 'something',
                                   'name' => 'aname'
                                 },
                        'two' => {
                                   'name' => 'anothername',
                                   'stuff' => 'bladder'
                                 }
                      }
        };

<opt>
  <parent name="aname" other="something" />
  <parent name="anothername" stuff="bladder" />
</opt>

use XML::Simple qw(:strict);

print XMLout($hashref, KeyAttr => []);

<opt>
  <parent>
    <one name="aname" other="something" />
    <two name="anothername" stuff="bladder" />
  </parent>
</opt>