my $get_next_idx = make_index_iterator(\@array);

while(my $i = $get_next_idx->()) {
    local *_ = \ $array[$i];
    # $_ is aliased here
}