Select Code to Download

sub zip {
    my ($ref1, $ref2) = @_;
    my @zip;
...
while (my ($item, $element) = splice @zip => 0, 2) {
    print "$x: $item $y: $element\n";
}

for zip(@a,@b) -> $item, $element {
    say "$x: $item $y: $element";
}