c:\@Work\Perl>perl -wMstrict -le
"my @f = (9, 8, 7);
 for (0 .. $#f) {
   print qq{index $_: element $f[$_]};
   }
"
index 0: element 9
index 1: element 8
index 2: element 7