Select Code to Download

  DB<16> @array =()

...

  DB<20> x @x
0  undef                                   # WTF

  DB<1> @x = (1..3,0,undef,1..3)

...

  DB<5> while (my $x = shift @x) { print "$x," }
1,2,3,