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;}

      }

##</code><code>##

........
28 35 9
29 35 9
30 35 9
31 35 9
32 35 9
33 35 9
34 35 9
0 35 ARRAY(0xa04116c)
Out of memory during "large" request for 1073745920 bytes, total sbrk() is 31744
0 bytes at neuronalnetwork.pl line 137.