my $nodeset = $doc->findnodes("//*[name()='ReferenceID']"); 
  foreach my $node ($nodeset->get_nodelist) {  
   if ($node->hasAttribute("referenceIDType") == XML::LibXML::Boolean->True) { 

    $RetVal = $node->getAttributeNode("referenceIDType")->getValue(); 
 if ($RetVal eq "FDD") { 
 print "Attribute VAL=@@@@@@@@@@@@"."$RetVal \n"; 
  $node->setData("$NodeVal"); 
 } 
    
   } 
  }