Example 4-3. examples/arrays/arrays.p6
#!/usr/bin/perl6 for "Foo", "Bar", "Baz" -> $name { say $name; } say "---"; for 1..5 -> $i { say $i; } say "---"; for 1..Inf -> $i { say $i; last if $i > 10; } say "---";