my @fields = qw(foo bar baz);
for (@fields) {
    $q->param($_,'') unless defined $q->param($_);
}