Select Code to Download

  DB<33> my $a; print  $a==undef
1
...
 
  DB<38> my $a=undef; print  $a eq ""
1

($a,$b)=();

undef $a;