[Perl 6] last demo.

my $i = 1;

loop {
    if $i > 5 {
        last;
    }

    $i.say;
    $i++;
}