You could use Algorithm::Loops for this, but that would probably get you a poor grade. You could search for that name and find some discussions about how it works (and probably some other ways of doing this type of thing). If it starts to make sense, then you could read the source code and see how it works.