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