Perl Array index with element

use strict;
use warnings;
use 5.010;

my @array = (10,8,2,2);

while( my ($i, $e) = each @array){
        say "i: $i, e: $e";
}

for (@array){
        my ($i, $e) = each @array;
        say "i: $i, e: $e";
}

配列のインデックスと要素を同時に取得するメモ