I tend to use do { ...} while();

But keep in mind that next/last don't work as one might expect (at least for those of us who learnt C first, and perl later :-)

Michael