DB<41> x { $max=100; while (  () = undef  ) {print "$x, "; last if $max-- == 0 } }
, , , , , , , , , , , , , , , ... , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , ,   empty array

DB<42> x { $max=100; while (  $_ = undef  ) {print "$x, "; last if $max-- == 0 } }
0  undef