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