my $answer = $$result[0];
    if ( ($answer == 1) && ( $i % 2 != 0) ) {
           print "Got it wrong!\n";
           #Learn the pattern
           $net->learn(\@bit,[0]);
           $i=-1; # Start over
    }
    print "$answer\n";