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