# Do-while

```perl
my $val = 0;
repeat {
    say ++$val;
} while $val % 6;
```

`repeat ... until <i>condition</i>` is equivalent to `do ... while not <i>condition</i>`.

```perl
my $val = 0;
repeat {
    say ++$val;
} until $val %% 6;
```

(Here we've used `%%`, the "divisible-by" operator.)

You can also put the condition before the block, without changing the order of evaluation.

```perl
my $val = 0;
repeat while $val % 6 {
    say ++$val;
}
```
