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