DB<1> @x = (1..3,0,undef,1..3)

  DB<2> $max=100

  DB<3> while (my ($x) = shift @x) { print "$x,"; last if $max-- < 0 }
1,2,3,0,,1,2,3,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  DB<4> @x = (1..3,0,undef,1..3)

  DB<5> while (my $x = shift @x) { print "$x," }
1,2,3,