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

 :: :: :: ::  empty array