if you don't want to use a counter, how about:

foreach $index (0..$#s) {
  print "$index: $s[$index]\n";
}
[download]