while ($_ = <SOME_FILE_HANDLE>){
   ...
}