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