perldoc -q "How do I count the number of lines in a file"
In reply to Re: Forcing array context on a file handle by fishmonger in thread Forcing array context on a file handle by ronmrdechai