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

##</code><code>##

if (@InvalidFields){
  # You have some empty fields, so do something about them
}