[perl #125380] Calling lines() in two separate for loops causes $*ARGFILES to open standard input

[via RT]

# New Ticket Created by  Rob Hoelz 
# Please include the string:  [perl #125380]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=125380 >


In the attached script, I use two for lines() -> $line loops.  After $*ARGFILES 
is exhausted by the first loop, the second has $*ARGFILES open standard input, 
which I feel is a bug.

test.p6
Description: Binary data