while (!eof()) {
    my @lines;
    defined( $lines[@lines] = <> ) or die for 1..3;
    ...
}