Select Code to Download

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

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