Select Code to Download

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

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

my @array;
for @male Z @female -> $m, $f {
...
# or

my @array = (@male Z @female).map("$^a $^b");

my @array = @male Z~ @female; # without joining space

# with the list repetition operator:
@array = @male Z~ ' ' xx @male Z~ @female;

# with cross instead of zip:
@array = @male X~ ' ' Z~ @female;