use List::MoreUtils qw(any);
...
my ($server, $user, $database, $password, ... );
...
sub IMPORTANT_STUFF () { return $server, $user, $database, $password, ... ; }
sub importantCriterionForImportantStuff () { return $_ ne ''; }
...
help() unless all { importantCriterionForImportantStuff } IMPORTANT_STUFF;