@array = (1..9);
while (@array){
  print +(pop @array), "\n";
}

##</code><code>##

@array = (1..9);
while (@array){
  my $last = pop @array;
  do_something($last);
  print "$last\n";
}