my $each = make_array_iterator \@array;

while( my( $idx, $val ) = $each->() ) {
    # ...
}