for ($i = 0; $i < count($word); $i++)
   print "word[$i] = $word[$i]\n";

foreach ($words as $w) print "next word = $w\n";

for (reset($marks); $name = key($marks); next($marks))
   print "Mark for $name = $marks[$name]\n";

reset($marks);
while (list($name,$val) = each($marks))
   print "Mark for $name = $val\n";

$elem = current($vec);
while ($elem) {
   print "Next elem is $elem\n";
   $elem = next($vec);
}