DB<232> x $x=4; while( ($y)= ( $u = splice( @t,0,1 ))){ last unless $x--; print ":$_: " }

 :: :: :: ::  empty array

##</code><code>##

          shift(@a)   ===   ( $t = splice( @a,0,1 ) )