while ( defined( my $line = readline \*IN ) ) {
    do {
        foreach $line (@lines) {