use strict;
use warnings;
use XML::Simple;
my %h = (
      'name'        => 'my name',
      'values'      => {
         'A'  => 'a',
         'B'  => 'b',
         'C'  => 'c',
      },
);

XMLout(\%h,outputfile=>'./test_ok.xml');
my %g = %{XMLin('./test_ok.xml')};

print "ok, so far\n";

%h = (
      'name'        => 'my name',
      'values'      => {
         '01'  => 'a',
         '001'  => 'b',
         '0001'  => 'c',
      },
);
XMLout(\%h,outputfile=>'./test_ko.xml');
%g = %{XMLin('./test_ko.xml')};