You can always explicitly iterate over @ARGV:

my @files = @ARGV;
for my $fn (@files) {
    local @ARGV = ($fn);
    open OUTPUT, '>', "out$fn" or die $!;
    while (<>) {
        print OUTPUT $_;
    }
}
[download]

That won't work for empty @ARGV, which you'd have to special-case.