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