Select Code to Download

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

0 apple
1 banana
2 orange

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

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

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