my @l = (1, 2, 3, 0, 5, 6); while (my $x = shift @l) { print "$x "; } ## OUTPUT ## 1 2 3 [download]
my @l = (1, 2, 3, 0, 5, 6); while (@l) { my $x = shift @l; print "$x "; } [download]
MeowChow s aamecha.s a..a\u$&owag.print
In reply to (MeowChow) Re2: When does $_ get used? by MeowChow in thread When does $_ get used? by elbie