my @needed = grep {!$cgi->param($_)} @required;
if (@needed) {...};