use List::MoreUtils qw( each_arrayref );

my @a = qw( a b c d e );
my $each = each_arrayref( [ 0..$#a ], \@a );

while ( my ($idx, $v) = $each->() ) {
    print "$idx: $v\n";
}

##</code><code>##

use List::MoreUtils qw( each_array );

my @a = qw( a b c d e );
my $each = each_array( @a );

while ( my $v = $each->() ) {
    my $idx = $each->('index');
    print "$idx: $v\n";
}