my %params = CGI::Vars;
foreach my $p (keys %params) {
  unless ($params{$p} =~ /[[:alpha:]]/) {
    push @error_params, $p
  }
}

print "these params failed: ", join(", ", @error_params);

##</code><code>##

my %params = CGI::Vars;
if (scalar(keys %params) < $no_expected) {
  print "error, you missed something.";
}