Help for this page

Select Code to Download

Select or download this

sub file_processing {
    my ($array_ref, $script, $arg, $file) = @_;
...

    close FILE;
}

Select or download this

&file_processing(\@array1, $script1, $arg1, $file1);
&file_processing(\@array1, $script2, $arg2, $file2);