...

foreach $line (<FILE>) #main loop
{


##</code><code>##

while ( my $line = <FILE> ) #main loop
{