if(/scanchain/){
		$flag0 = 1;
		#while($flag0){
		print "in scanchain while loop\n";
			$flag1 = 1;
			#while($flag1){
			if (/(\s+)chain(\d+)_chain \[/){
			print "Why hello there?\n";
			$scanchain_chain_no = $2;
				#$flag = 1;
				#while($flag){
					#for($t=0; $t<=$Chain_No_size; $t++){
					#print "in for loop\n";
						#while(<WGL>){
							#print "Coo\n";
							
								#if($Chain_No[$t] eq $scanchain_chain_no){
								#print "too\n";
								#print "$Chain_No[$t]\n";
								#my $Input_Pin = <WGL>;				
								#$Input_Pin =~ tr/"//d;				
								#$Input_Pin =~ tr/,//d;
								#$Input_Pin =~ tr/      //d;				
								#print "Chain $Chain_No[$t] Input Pin = $Input_Pin\n"; 
									#while(<WGL>){
										#if(/(\s+)"(.*)"/){
										#$quotes = $2;
										#	foreach ($quotes){
										#	push @Quotes, $quotes;}
										#}
										#else{ last; }
									#} 						
								#$Output_Pin=$Quotes[-1];
								#print "Chain $Chain_No[$t] Output Pin = $Output_Pin\n\n";
								#} 							
								#next; 
						#}	
					#}
					#next;
				#}
			}
			#}
		#}
	}