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