DB<60> x { $max=100; while ( @x = splice( @{[]},0,1 )) {print "$x, "; last if $max-- == 0 } }
0  0
DB<61> x { $max=100; while (  @x = shift @{[]}  ) {print "$x, "; last if $max-- == 0 } }
, , , , , , , , , , , , , , ... , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , ,   empty array