DB<16> @array =()

  DB<17> (@x) = splice @array,0,1

  DB<18> x @x
  empty array
  DB<19> (@x) = shift @array

  DB<20> x @x
0  undef                                   # WTF