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

##</code><code>##

my @married;
foreach( 0 .. $#male ) {
    push @married, "$male[$_] $female[$_]";
}
# OR .....
my @married = map { "$male[$_] $female[$_]" } 0 .. $#male;

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