for my $counter ( 1..100 )    {


    for my $i ( @numbers )    {


           my $img;

           print "WELL: $i <P> GOAL: $counter<P>";


          if ($i == $counter)  {

                $img = $right[$counter-1];
          }

          else {

                $img = "error.bmp";
                $i -= 1;
          }
     
          $counter++;

          print qq(<area href="http:///cgi-bin/$img" 
                 >);


    }


 }