TestResult xmlns="somevalue" xmlns:xsi="somealue" xsi:schemaLocation="somevalue">
  <Result>Pass</Result> 
  <Comments>Executed Successfully</Comments> 
- <Parameters>
- <ParameterGroup ID="Group1">
  <Parameter key="Key1">Some Value</Parameter> 
  <Parameter key="Key2">Some Value</Parameter> 
  <Parameter key="Key3">Some Value</Parameter> 
  </ParameterGroup>
- <ParameterGroup ID="Group2">
  <Parameter key="Key1">Some Value</Parameter> 
  <Parameter key="Key2">Some Value</Parameter> 
  <Parameter key="Key3">Some Value</Parameter> 
  </ParameterGroup>
  </Parameters>
- <Files>
  <File key="FileTag1">Path to file</File> 
  <File key="FileTag2">Path to file</File> 
  <File key="FileTag3">Path to file</File> 
  </Files>
  </TestResult>

##</code><code>##


use strict;
use warnings;
use XML::LibXML; 

 my $doc = XML::LibXML::Document->new('1.0', 'utf-8');  
 my $root = $doc->createElement("TestResult");
 my $param = $doc->createElement("Parameters");
 $root->setAttribute('xmlns'=> 'somevalue');
 $root->setAttribute('xmlns:xsi'=>'somevalue');
 $root->setAttribute('xsi:schemaLocation' => 'somevalue');
  
my %tags = ( Result => 'Pass'); 

 for my $name (keys %tags)
 {     my $tag = $doc->createElement($name);    
 my $value = $tags{$name};  
  print $value;
 $tag->appendTextNode($value);
 $root->appendChild($tag); 
 } 

 my %ParamGroup = (ParameterGroupID => '1');
 
 for my $name1 (keys %ParamGroup)
 {
 	my $ParamGroup = $doc->createElement($name1);
 	my $value1 = $ParamGroup{$name1};
 	$ParamGroup->appendTextNode($value1);
 	$param->appendChild($ParamGroup);
 }

 $doc->setDocumentElement($root); 
 my $filename = "samplexml";
 my $format = '1';
  $doc->toFile($filename,$format);
 

##</code><code>##

 <?xml version="1.0" encoding="utf-8"?>
<TestResult xmlns="somevalue" xmlns:xsi="some value" xsi:schemaLocation="some value">
  <Result>Pass</Result>
</TestResult>