my @arr = qw(a b c);
while ( my ( $i, $e ) = each @arr ){
    say "iter $i = $e";
}