use XML::Simple;

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

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