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