my @InvalidFields =
  grep {not defined $Hash($_) or $Hash($_) eq ''} keys %Hash;