sub while (BOOL $condition, &closure) {...} sub if (BOOL $condition, &closure) {...}