#!perl
use strict;
use warnings;
use feature qw(:5.12);

my @array = 'a' .. 'g';
while( my( $index, $value ) = each @array ) {
    say "$index -> $value";
}

__END__
0 -> a
1 -> b
2 -> c
3 -> d
4 -> e
5 -> f
6 -> g