dracos,
This thread addresses a semi-related problem of scoring cribbage hands. You may draw some inspiration from it.

Update: See RFC: Cribbage::Hand for a fast pure-perl way to calculate all the points for a cribbage hand - not just the 15s.