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