#!/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";