while (<FILE>) {
        $line = <FILE>;
        ...
    }
    close(FILE);

##</code><code>##

    my $line
    while ($line = <FILE>) {
        ...
    }
    close(FILE);