You can always transform the tree programmatically before XMLout.

for my $elem (@{ $tree->{arr}{elem} }) {
   $elem->{mod}{content} = delete($elem->{mod});
}
[download]

For what it's worth, keep in mind your existing code will break if a mod element acquires an attribute. (Don't you love the fragility of XML::Simple?)