Select Code to Download

perl -le 'use strict;my @a=("a");@a=();print "Defined" if defined @a;p
+rint scalar @a'

perl -le 'use strict;my @a=("a");undef @a;print "Defined" if defined @
+a;print scalar @a'

perl -le 'use strict;my @a=("a");@a=undef;print "Defined" if defined @
+a;print scalar @a'