for($i=0;$i<$c_IN;$i++)
      {

      print "$i $c_IN $in_i\n";

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

      if (not defined $x[$i]){die;}

      }