{

      print "$i $c_IN $in_i\n"; # <-----

      $x[$i] = $actafer[$in_i][$i];