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