foreach (my $i = 0; $i < 5; ++$i) { say $i }