while (<$infile_lib1>) 
			{
				if ($_ =~ /values \( \/ /)
					{
						
						$line = <$infile_lib1>;
						@DIN_SETUP_RISE_1 = split /,/,$line;
						print "@DIN_SETUP_RISE_1 \n";
						$line = <$infile_lib1>;
						@DIN_SETUP_RISE_2 = split /,/,$line;
						print "@DIN_SETUP_RISE_2 \n";
						$line = <$infile_lib1>;
						@DIN_SETUP_RISE_3 = split /,/,$line;
						print "@DIN_SETUP_RISE_3 \n";
					}
			}