Perl module that calculates Seinfeld chains