use XML::Simple;

    my $xml; 
    {
	# Suppress warnings from XML::Simple 2.24
	no warnings 'uninitialized';
	my $xmlout = XMLout($data, NoAttr => 1, RootName => undef, SuppressEmpty => 0);
	$xml = '<xml version="1.0" encoding="UTF-8">' . "\n$xmlout</xml>";
    }

##</code><code>##

Use of uninitialized value at /[path/to]/Data.pm line 205.
Use of uninitialized value at /[path/to]/Data.pm line 205.
Use of uninitialized value at /[path/to]/Data.pm line 205.
[...]