sub process_files {
    my ( $SubArgs ) = @_;

    my $function  = $SubArgs->{ function }
    my $message   = $SubArgs->{ message }
    my $parm      = $SubArgs->{ parm } || "";  #  If no parameter, default to "".
    my $extension = $SubArgs->{ extension };
    my @list      = @{ $SubArgs->{ list } };
    ...