#!/usr/bin/perl

use warnings;
use strict;
use XML::Simple;

my $data = {
        e => ['element value'],
        a => 'attribute value'
};

print XMLout($data, RootName => 'root');

__DATA__
<root a="attribute value">
  <e>element value</e>
</root>