In print OUTPUT while (<$input>); a file handle is given but no list. print doesn't even admit in the synopsis that such a case is possible and it says:

If LIST is also omitted, prints $_ to the currently selected output channel.

My emphasis.