http://www.perlmonks.org?node_id=1049137


in reply to checking values of variables

It might be slightly less cumbersome and still be quite legible to use something like this:

for my $param ($server, $database, $user, $password, ... $sendmail, $initversion) { help() and last if ($param eq q{}); }