in reply to tcl like 1 loop with two operators
Algorithm::Loops might also be of interest.
The cake is a lie. The cake is a lie. The cake is a lie.