Use XML::Simple. From the docs:

use XML::Simple;

my $ref = XMLin([<xml file or string>] [, <options>]);

my $xml = XMLout($hashref [, <options>]);
[download]

so to create the xml from a hash:

my %hash;

... # fill the hash

my $xml = XMLout (\%hash);
[download]