foreach $e (@s) {
  print "$e\n";
}