[Perl 6] while demo

my $i = 1;

while $i <= 10 {
    "Counting to {$i}".say;
    $i++
}