LOOP:
...
...
...
redo LOOP unles($var)