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 = '' . "\n$xmlout";
}
####
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.
[...]