##
my $parser=XML::LibXML->new;
my $doc = $parser->parse_string($string);
foreach my $ten ($doc->findnodes('/scMetrics')){
print $ten->nodeName."\n";
foreach my $child ($ten->getChildnodes){
print "name ".$child->nodeName."\n";
print "text ".$child->textContent." \n";
#$sub_hash{$child->nodeName}=$child->textContent;
}
print "========================\n";
}