while ( @array ) {
    my $element = shift @array;
    # or "my $element = pop @array;".
    # Now, do something with $element
}