>if (!defined $a || !defined $b || .. ) выглядит очень неуклюже.
>Можно как-нибудь if undefined ($a $b $c $d) { ... }
>?

модуль List::MoreUtils

               print "At least one value undefined"
                   if any { !defined($_) } @list;

               print "All items defined"
                   if all { defined($_) } @list;