my $TestRun= {
		'SuccessfulTests' => [
			{
				'Test' => {
					'name' => "toto"
				}
			},
			{
				'Test' => {
					'name' => "titi"
				}
			}
		],
		
		'FailedTests' => [
			{
				'Test' => {
						'name' => "tutu"
					}
			},
			{
				'Test' => {
						'name' => "tete"
					}
			}
		]
};

##</code><code>##


<TestRun> 

  <SuccessfulTests> 
    <Test> 
      <Name>toto</Name> 
    </Test> 
    <Test> 
      <Name>titi</Name> 
    </Test>   
  </SuccessfulTests> 
  
  <FailedTests> 
    <Test> 
      <Name>tutu</Name> 
    </Test> 
    <Test> 
      <Name>tete</Name> 
    </Test>   
  </FailedTests>

  </TestRun> 

##</code><code>##

my $xml = new XML::Simple;
my $dec = '<?xml version="1.0" encoding="utf-8"?>';
print $xml->XMLout($VAR2, XMLDecl => $dec, keyattr => [], RootName => 'TestRun');

##</code><code>##

<?xml version="1.0" encoding="utf-8"?>
<TestRun>
  <SuccessfulTests> 
    <Test name="toto"/> 
  </SuccessfulTests> 
 <SuccessfulTests> 
    <Test name="titi"/> 
  </SuccessfulTests>  
  <FailedTests> 
	<Test name="tutu"/> 
  </FailedTests> 
    <FailedTests> 
	<Test name="tete"/> 
  </FailedTests>   
  </TestRun>