Select Code to Download

for( @male Z @female )->[$m,$f] {
    # ....
}

my @married;
foreach( 0 .. $#male ) {
...

# OR with List::MoreUtils::pairwise
my @married = pairwise{ "$a $b" } @male, @female;