title_1 title_2 ##

##

use XML::Simple;

my %xml_hash = (
    book1 => ['bla'],
    book2 => ['bli'],
);

my $xml = XMLout(\%xml_hash, KeyAttr => []);
print $xml;

##

##


    title_1
    title_2