loop (my $i = 0; $i < @.inputsynapses.length; $i++) {
    if (@.inputsynapses[$i].weight * @.inputsynapses[$i].outputneuron.input >= 0) {
        @.inputsynapses[$i].outputneuron.input = 1;
    } else {
        @.inputsynapses[$i].outputneuron.input = 0;
    }   
}