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