Perlmonks and golf aliens,

Is there a shorter way to write:

while(@x){1while$x!=$y}
[download]

...ideally such that any braces and/or parentheses can be removed (without causing syntax errors - c.f. the code below).

1while$x!=$y while@x
[download]

Cheers,
o0lit3