the way to get current index of an array

hi, perlers,
Is there a simple way to get the current index of an array in loop statement?
the procondition is you cannot get this information from array element. For
example

#!usr/bin/perl
my @arr = qw/a b c d e/;
for(@arr)
{
print "The No.?? element is $_\n";
}


-----------------------------------------------
Life is a different teacher...
It doesn't teach lessons, and then keep exams...
It keeps the exams first and then teaches the lessons.



Attachment: smime.p7s
Description: S/MIME cryptographic signature