$ perl -E'while (()) { say("foo"); last }'

$ perl -E'say("foo"), last while ();'

$ perl -E'while () { say("foo"); last }'
foo