You could use a counter:

my $count=0;
foreach $e (@s) {
  $count ++;
  print "$e is the $count"."th element\n";
}
[download]

Neil Watson
watson-wilson.ca