while ( <$file> )