Select Code to Download

@rray = ( 'foo', 'bar', 'spam', 'eggs' );
$[=3;
$calar = $[;
print $rray[$calar] while $calar++<@rray;

@rray = ( 'foo', 'bar', 'spam', 'eggs' );
$[=$#rray
$calar = $[;
print $rray[$calar] while $calar++<@rray;