xml File open store on array of @lines(file contain record block)
foreach line(@lines) #10Lakhs Line
{
	
	$stringparse .=line # stringparse get the record (maybe of 100 lines which go to if block for parsing)
	

        IF(Endtags of block)# Execute 10000 times for each record($stringparse 100 lines xml)
	{
		$XML::LibXML::skipXMLDeclaration = 1; 
		our $dom = XML::LibXML->load_xml(string => $stringparse);
		our $xml = $dom->documentElement;
		
		.
		.
		.
		#Some of use Api of my Code

		$method = $xml->getChildrenByTagName('Method')->to_literal;
		$Value = $xml->getChildrenByTagName("$Check")->to_literal;
		$bune = $xml->getChildrenByTagName('Number')->to_literal;
		if ($xml->findnodes('./Indi/Lost/true') ) {
		}
		
		if ( $xml->findnodes('./Indi/Lost/true') || $xml->findnodes('./Indi/Losgshshsht/false') ) {
		}
               if(($xml->findnodes('./nike'))[0]->firstChild){
	($xml->findnodes('./nike'))[0]->firstChild->setData($localS); 
								}
	my $Tag =$dom->createElement('Nike_identifier')											 
        $Tag->appendText($localS); 
	$xml->addChild($Tag);
        $org= $xml->findnodes('./NikkooIdentifiers/abc')->to_literal;
      }
	

}