use XML::Simple qw(XMLout); my $data={book=>[{name=>"test",author=>"H3"},{name=>"test2",author=>"H4"}]}; print XMLout($data,NoAttr=>1,RootName=>"books");