1 while <$file>; print $.; [download]
In reply to Re^2: Forcing array context on a file handle by choroba in thread Forcing array context on a file handle by ronmrdechai