$infile_CSV, $outfile_CSV, $outfile 

##</code><code>##

$VAR1 = {
          'REFCLK_BUF3' => [
                             'AsyncOutNoTimingArc'
                           ],
          'C_WREN' => [
                        'C_CLK_and_SCANCLK_L__IN'
                      ],
          'CAL_CLK' => [
                         'AsyncInNoTimingArc'
                       ],
          'RX_IBIAS_2_25U[4:0]' => [
                                     'Power'
                                   ],

##</code><code>##

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