Perl: do loops
do loops
With a while() or until() loop, the body will get skipped if the control expression is the termination value to begin with
do loops place the while/until statement at the end of the body, ensuring that the body will get executed at least once
while/until - test at top of loop
do - test at bottom of loop