Select Code to Download

for (pair(zip($array1, $array2))) {
    my ($x, $y) = @$_;
...

    ...
}

for (
    sort { $a->[0] <=> $b->[0] or $a->[1] cmp $b->[1] }
...
    my ($number, $char) = @$_;
    ...
}