I think that you will be happier if you implement this mapping in Perl rather than in XS.

Writing less of your code in XS usually means fewer bugs and limitations, easier maintenance and extending, and easier to write.