my @varlist = qw(var1 var2 var3);

foreach (@varlist) {
	if (!defined $cgi->param($_) || $cgi->param($_) eq "") {
		&complain($_);
		}
	}