Help for this page
DB<33> my $a; print $a==undef 1 ... DB<38> my $a=undef; print $a eq "" 1
($a,$b)=();
undef $a;