sub process_files {
    my ($function, $parm, $message, $extension, @list) = @_;
    ...