my %hash;

... # fill the hash

my $xml = XMLout (\%hash);