use v6;
my @people = ;
for @people -> $n {
say $n;
}
use v6;
my @people = ;
for 0 .. @people.elems/2 -> $i {
say "@people[$i*2] - @people[$i*2+1]";
}
use v6;
my @people = ;
for @people -> $name, $phone {
say "$name - $phone";
}
use v6;
my @names = ;
my @phones = <123 456 789 512>;
for @names Z @phones -> $name, $phone {
say "$name - $phone";
}
use v6;
for 1 .. 10 -> $n {
say $n;
}
use v6;
for 1,3 ... Inf -> $n {
say $n;
last if $n > 10;
}