$infile_CSV, $outfile_CSV, $outfile, $key_CSV

##</code><code>##

my $count = grep { $_ == {AsyncInNoTimingArc} } values %hash;

##</code><code>##

my $count = grep { $_ eq 'AsyncInNoTimingArc' } values %hash;

##</code><code>##

for (; $count >= 0; $count--)

##</code><code>##

print "\n",
      "pin($key_CSV) {\n",
      "direction       : input ;\n",
      "capacitance     : $DIN_CAP ;\n",
      "}\n",
      "\n",
      "internal_power(pwr_arc){\n",
      "values(\"$DIN_PWR_ARC\");\n",
      "related_input : \"$key_CSV\" ;\n";