for (qw / server database user password ... initversion /) { help() and last unless (defined $params{$_} and $params{$_}); }