No, but if you're iterating over an array, you can do

for my $i (0..$#array) {
   print("Element $array[$i] was found at index $i\n");
}
[download]

or (copy element into $e)

for my $i (0..$#array) {
   my $e = $array[$i];
   print("Element $e was found at index $i\n");
}
[download]

or (alias $e to the element)

for my $i (0..$#array) {
   for my $e ($array[$i]) {
      print("Element $e was found at index $i\n");
   }
}
[download]