HV* data_hash     = newHV();
SV* data_hash_ref = newRV_inc(data_hash);

...
call_perl_sub("test_callback", data_hash_ref);
...

SvREFCNT_dec(data_hash_ref);  /* Or motalise and return to caller */
SvREFCNT_dec(data_hash);