note
citromatik
<p>If you comment the second line, <c>$end</c> will be undefined in the loop condition. Please, <c>use strict</c> and <c>use warnings</c> in your code if you want to learn Perl the easy way. This code works as expected:</p>
<c>
use strict;
use warnings;
my @array=(1,2,3,4,5,6,7,8,9);
my $end=($#array+1);
my $index = 0;
while($index < $end){
my $last=pop(@array);
print "$last\n";
$index++;
}
</c>
<p>BTW, here are another ways to address the same problem:</p>
<c>
my @array = (1..9);
print +(pop @array),"\n" while (@array);
</c>
<p>
or even
</p>
<c>
my @array = (1..9);
print "array[$_]\n" for (reverse (0..$#array));
</c>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-615480">
<p><i>citromatik</i></p>
</div></div>
771479
771479