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