C:\test>perl -MO=Terse -E"$a=join'',map{int rand 2}1..64;@b=map{int rand 2}1..64; $count=($a&$b)=~tr[1][]"
LISTOP (0x3447bc0) leave [1]
    OP (0x344f178) enter
    COP (0x3447c00) nextstate
    BINOP (0x3447c68) sassign
        LISTOP (0x3447cd8) join [8]
            OP (0x3447ca8) pushmark
            SVOP (0x3448118) const [22] PV (0x332ca20) ""
            LOGOP (0x3447d88) mapwhile [7]
                LISTOP (0x3447df8) mapstart
                    OP (0x3447dc8) pushmark
                    UNOP (0x3447d50) null
                        UNOP (0x3447e38) null
                            LISTOP (0x3447fc8) scope
                                OP (0x3448008) null [177]
                                UNOP (0x3448070) int [3]
                                    UNOP (0x34480a8) rand [2]
                                        SVOP (0x34480e0) const [6] IV (0x332cb58) 2
                    UNOP (0x3447e70) rv2av
                        SVOP (0x3447d18) const [23] AV (0x3327640)
        UNOP (0x3448150) null [15]
            PADOP (0x3448188) gvsv  GV (0xa76a8) *a
    COP (0x34475c8) nextstate
    BINOP (0x3447630) aassign [17]
        UNOP (0x34476a0) null [142]
            OP (0x3447670) pushmark
            LOGOP (0x34477c0) mapwhile [16]
                LISTOP (0x3447830) mapstart
                    OP (0x3447800) pushmark
                    UNOP (0x3447788) null
                        UNOP (0x3447870) null
                            LISTOP (0x3447a00) scope
                                OP (0x3447a40) null [177]
                                UNOP (0x3447aa8) int [12]
                                    UNOP (0x3447ae0) rand [11]
                                        SVOP (0x3447b18) const [15] IV (0x3326f00) 2
                    UNOP (0x34478a8) rv2av
                        SVOP (0x3447750) const [24] AV (0x3326900)
        UNOP (0x3447710) null [142]
            OP (0x34476e0) pushmark
            UNOP (0x3447b50) rv2av [10]
                PADOP (0x3447b88) gv  GV (0x3327010) *b
    COP (0x344f1e8) nextstate
    BINOP (0x344f250) sassign
        UNOP (0x344f290) null
            BINOP (0x344f3e8) bit_and [21]
                UNOP (0x344f498) null [15]
                    PADOP (0x34474e0) gvsv  GV (0xa76a8) *a
                UNOP (0x344f428) null [15]
                    PADOP (0x344f460) gvsv  GV (0x3327010) *b
            PVOP (0x344f3b0) trans
        UNOP (0x3447518) null [15]
            PADOP (0x3447550) gvsv  GV (0x33262d0) *count
-e syntax OK