In more recent versions of Perl, you can use each():

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