$i=0; foreach $e (@s) { print $i++." $e\n"; }