print Dumper $xml_hash;
  my $xml_obj = XML::Simple->new( Keeproot => 1, ForceArray => 1);
  my $xmlo = $xml_obj->XMLout( $xml_hash );
  print $xmlo;