Select Code to Download

while (my ($x, $y, $z) = @{ $iter->next // [] }) {
        
    push @wants,
...
        )       
    ];
}

my @cnt;
my $seq= 0;
my $x = $cnt[0];
...
        )       
    ];
}