my @InvalidFields =
  grep {not defined CGI::param($_) or CGI::param($_) eq ''} CGI::param();

##</code><code>##

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