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