while(@lines) {
...
}

##</code><code>##

@lines = <MYFILE>;

##</code><code>##

@lines = split /\n/, $string;