The while loop doesn't care if the lines come from one file or many, but the sample code is much more concise if I use a single 'file' with duplicated lines. You could:

@ARGV = @filenames;
while (<>) {
    $filename = shift @filenames if $. == 1;
    ...
}
[download]

to process a swag of files.