in reply to algorithm to categorize

You want AI::Categorize.

In Section Seekers of Perl Wisdom