sv_setref_pv(perlref, "Artist", (void*)artist);
artist->perlobj = SvRV(perlref);