In perl-5.10 and later you can also use the smart-match operator:
if ($WCkey ~~ undef && $SCeky ~~ undef && ... ) { } [download]
In reply to Re: check undef by moritz in thread check undef by Sun751