while (my $line = <DATA>) { ... }
    while (defined (my $line = <DATA>)) { ... }

##</code><code>##

    while (<DATA>) { ... }

##</code><code>##

    while (my $line = <DATA>) { ... }