C:\test>perl -MO=Terse -E"@a=map{int rand 2}1..64;@b=map{int rand 2}1..64; for my$a(@a){ for my $b(@b){ $a==$b and ++$count }}"
LISTOP (0x34e7c58) leave [1]
    OP (0x34eec40) enter
    COP (0x34e7c98) nextstate
    BINOP (0x34e7d00) aassign [9]
        UNOP (0x34e7d70) null [142]
            OP (0x34e7d40) pushmark
            LOGOP (0x34e7e90) mapwhile [8]
                LISTOP (0x34e7f00) mapstart
                    OP (0x34e7ed0) pushmark
                    UNOP (0x34e7e58) null
                        UNOP (0x34e7f40) null
                            LISTOP (0x34e80d0) scope
                                OP (0x34e8110) null [177]
                                UNOP (0x34e8178) int [4]
                                    UNOP (0x34e81b0) rand [3]
                                        SVOP (0x34e81e8) const [7] IV (0x33cca88) 2
                    UNOP (0x34e7f78) rv2av
                        SVOP (0x34e7e20) const [26] AV (0x33c7570)
        UNOP (0x34e7de0) null [142]
            OP (0x34e7db0) pushmark
            UNOP (0x34e8220) rv2av [2]
                PADOP (0x34e8258) gv  GV (0xa76c8) *a
    COP (0x34e7660) nextstate
    BINOP (0x34e76c8) aassign [18]
        UNOP (0x34e7738) null [142]
            OP (0x34e7708) pushmark
            LOGOP (0x34e7858) mapwhile [17]
                LISTOP (0x34e78c8) mapstart
                    OP (0x34e7898) pushmark
                    UNOP (0x34e7820) null
                        UNOP (0x34e7908) null
                            LISTOP (0x34e7a98) scope
                                OP (0x34e7ad8) null [177]
                                UNOP (0x34e7b40) int [13]
                                    UNOP (0x34e7b78) rand [12]
                                        SVOP (0x34e7bb0) const [16] IV (0x33c6e30) 2
                    UNOP (0x34e7940) rv2av
                        SVOP (0x34e77e8) const [27] AV (0x33c6830)
        UNOP (0x34e77a8) null [142]
            OP (0x34e7778) pushmark
            UNOP (0x34e7be8) rv2av [11]
                PADOP (0x34e7c20) gv  GV (0x33c6f40) *b
    COP (0x34eecb0) nextstate
    BINOP (0x34eed18) leaveloop
        LOOP (0x34eee30) enteriter [19]
            OP (0x34eee88) null [3]
            UNOP (0x34eef28) null [142]
                OP (0x34eeef8) pushmark
                UNOP (0x34ef568) rv2av [21]
                    PADOP (0x34e75b8) gv  GV (0xa76c8) *a
        UNOP (0x34eed58) null
            LOGOP (0x34eed90) and
                OP (0x34eee00) iter
                LISTOP (0x34eef68) lineseq
                    COP (0x34eefa8) nextstate
                    BINOP (0x34ef010) leaveloop
                        LOOP (0x34ef128) enteriter [22]
                            OP (0x34ef180) null [3]
                            UNOP (0x34ef220) null [142]
                                OP (0x34ef1f0) pushmark
                                UNOP (0x34ef4c8) rv2av [24]
                                    PADOP (0x34ef500) gv  GV (0x33c6f40) *b
                        UNOP (0x34ef050) null
                            LOGOP (0x34ef088) and
                                OP (0x34ef0f8) iter
                                LISTOP (0x34ef260) lineseq
                                    COP (0x34ef2a0) nextstate
                                    UNOP (0x34ef308) null
                                        LOGOP (0x34ef340) and
                                            BINOP (0x34ef428) eq
                                                OP (0x34ef498) padsv [19]
                                                OP (0x34ef468) padsv [22]
                                            UNOP (0x34ef380) preinc
                                                UNOP (0x34ef3b8) null [15]
                                                    PADOP (0x34ef3f0) gvsv  GV (0x33c5ed0) *count
                                    OP (0x34ef0c8) unstack
                    OP (0x34eedd0) unstack
-e syntax OK