x = [ 'apple', 'banana', 'orange' ]
for i, val in enumerate(x): print i, val

##</code><code>##

0 apple
1 banana
2 orange

##</code><code>##

x = [ 'apple', 'banana', 'orange' ]
x.each_with_index { |val, i| print "#{i} #{val}\n" }

##</code><code>##

use List::MoreUtils qw(each_array);
my @x = ( 'apple', 'banana', 'orange' );
my $it = each_array( @{[0..$#x]}, @x );
while ( my ($i, $val) = $it->() ) {
    print "$i $val\n";
}

##</code><code>##

my @x = ( 'apple', 'banana', 'orange' );
while ( my ($i, $val) = each @x ) {
    print "$i $val\n";
}