if ($WasonE{HSname} ne "") {
  print "<th>" . $WasonE{HSname} . "</th>\n";
  }