Help for this page

Select Code to Download


  1. or download this
      DB<50> x [ shift @x, splice @x,0,1 ]
0  ARRAY(0x34a5270)
   0  undef
  2. or download this
      
DB<60> x [ ($a=shift @x), ($b=splice @x,0,1) ]