open (my $outfile1, '>>', "$outfile") or die "Unable to open $outfile: $!\n";

	for (; $count >= 0; $count--) 
	{
		print	<<"	EOF";
			pin($key_CSV) {
			direction       : input ;
			capacitance     : $DIN_CAP ;
			}
			
			internal_power(pwr_arc){
		        values(\"$DIN_PWR_ARC\");
		        related_input : \"$key_CSV\" ;
	}
	EOF