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