unless($well) {
  die "missing value for well in file $file, line $. \n";
}