while (my $line = <MYFILE>) {
   ... code in loop ...
}