my $xs = new XML::Simple(ForceArray => 1, KeyAttr => 1, KeepRoot => 1, NoAttr => 1);
print '<?xml version="1.0" encoding="UTF-8"?>', "\n";
print $xs->XMLout(\%foo, RootName => "foo");