my $i;
for ($i = 0; $i <@array; $i++)
	{
	if($array[$i] =~ /^Customer\s : \sYes/)
		{
			for ($count = $i; $count >= 1; $count--)
				{   
					if ($array[$count] =~ /ID\s*:\s*(.+)/ )
					{
						$ID = $1; #PLACE WHERE THE ID GET EXTRACTED
						print "$ID \n";
						for ($count = $i; $count >= 1; $count--)
						{   
							if ($array[$count] =~ /Module:\s*(.+)/ )
						{
						 $MODULE_NAME = $1;
						 print "$MODULE_NAME \n";
						 my $Mycell1 = $Sheet->Range($Sheet->Cells($row, $col),$Sheet->Cells($row, $col+2));
						 $Mycell1->{Value}=["$ID","$MODULE_NAME","$File"];
						 $row++;

						goto breakingfunction;
						}
						}
					}
				}	
breakingfunction:			
					
		}
	}