$line = <FH>; # on its own / not as while condition