Select Code to Download

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

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