Select Code to Download

{
    local @ARGV = ('file1', 'file2', ...);
...
        ...
    }
}

foreach $filename ('file1', 'file2', ...) {
    local *RPT;
...
        ...
    }
}

sub read_log {
    my ($filename, $analysis_ref) = @_;
...
my %analysis;
read_log($_, \%analysis)
   foreach ('file1', 'file2', ...);