[Perl 6] loop (as for) demo.

loop (my $i = 0; $i < 10; $i += 2) {
    $i.say;
}