use List::MoreUtils qw(any); ... help() if any { $_ eq q{} } $server, $user, $database, $password, ... ;