HV *data_hash = newHV();

/* do some processing here. */

call_perl_sub("test_callback", SvREFCNT_inc(data_hash));