in reply to while(<>) in perl 5.22
I reproduce your undesired behavior on 5.16. To get your desired output in this instance, replace while (<>) with for (@ARGV)
See also perlop
In Section
Seekers of Perl Wisdom
in reply to while(<>) in perl 5.22
See also perlop