Many thanks to you and bobf for these links.

Algorithm::Loops is exactly what I was looking for.

Cheers