sub addcp{
    my $cpstring = $_[1];
    $cpstring =~ s/^([A-Za-z\-\_0-9]+)\|//;
    my $antecedent = $1 || return;
    my @dependents = split(/,/, $cpstring);
    my @cptrequest = ($antecedent, \@dependents);
    push @{$runconfig{"cp"}},(\@cptrequest);
}