Help for this page
while (my ($x, $y, $z) = @{ $iter->next // [] }) { push @wants, ... ) ]; }
my @cnt; my $seq= 0; my $x = $cnt[0]; ... ) ]; }