while (my $item = pop @my_array) {
  # do stuff with $item
}