List::Cycle. I specifically wrote it during the review phase of Perl Best Practices so that people could look at it as an example of how to do inside-out objects.