PREINIT:
    [...]
    char **val;
CODE:
    New(0,val,count+1, char*);
    New(0,message,1,EdjeMessageStringSet);
    message->count = count+1;
    for (index = 0; index <= count; index++) {
        SV *tmp = *av_fetch(val_arr,index,0);
        string = SvPVutf8(tmp,len);
        New(0,val[index],len,char)
        val[index] = savepvn(string,len);
    }
    Move(val,message->str,count+1,char*);
    RETVAL = message;
OUTPUT:
    RETVAL