DB<50> x [ shift @x, splice @x,0,1 ]
0  ARRAY(0x34a5270)
   0  undef

##</code><code>##

  
DB<60> x [ ($a=shift @x), ($b=splice @x,0,1) ]