while ( <$filehandle> ) { # do something }