@rray = ( 'foo', 'bar', 'spam', 'eggs' );
for ($calar=0; $calar < @rray; $[++) {
   print "$rray[$calar]";
}