my $ret2 = &CCC::DDD::setCAlist($self->param(CA_list));