Hi humble,

if you check do documentation, you will notice this:
"do BLOCK" does *not* count as a loop, so the loop control statements "next", "last", or "redo" cannot be used to leave or restart the block.
check this perlsyn for alternative strategies.

Update:
However, If you must use the do as stated in your code with next, then you have to "double" the braces like so:

do{{ 
      next ....
  }} until ...;
[download]