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