for ($i = 0; $i < @well; $i++)   {
#                 scalar(@well) here

              if ($well[$i] > $highest)    {

                     $highest = $numbers[$i];
#                               $well[$i] here
               }  
     }