while (my ($k, $v) = each %$href)
{
      StripLTSpace($v);
      $v or
        return DIRTY $row, "ERROR: required field $k not present";
}