my @well = split ('', $well);
    $highest = $well[0];   # definately problems here, cant pick out $well[0]

##</code><code>##

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

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

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


##</code><code>##

foreach $number (@well) {
  $highest=$number if $highest<$number;
}