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

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