Loop Runners

[Amit Phatak]

To run through a loop there more than one ways (a lot actually!) in PERL.  The ones 
I'm aware of are:  To run through @array

#1
$size = @array;
for($i=0;$i<$size;$i++)
{
   print "$array[$i]\n";
}

#2
foreach $i (@array)
{
 print "$i\n";
}

Can people please contribute on other ways to do the same thing.  Please begin by #3, 
#4.. etc as you read on different ways.

Thanks,
Amit