sub populatemessagedefs {
    my $hashref = shift;
    my $string = shift;
    %$hashref = (%$hashref, split(',',$string));
}