Help for this page

Select Code to Download


  1. or download this
      DB<187> @a=(1,undef,2,3,0,4,5)

...
45
  DB<191> print $x while $x =shift @a