I don't know if it can be adapted to cribbage, but check out poker-eval

It has python bindings, but no Perl yet.

You can do millions of hands in just a few seconds.