Select Code to Download

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

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