Select Code to Download

SV = RV(0x4b1e750) at 0x4b1e740                                       
+                SV = RV(0x4386f70) at 0x4386f60
  REFCNT = 1                                                          
+                  REFCNT = 1
...
    CUR = 8                                                           
+                    CUR = 8
    LEN = 16                                                          
+                    LEN = 16
    STASH = 0x442c448   "BiMap"                                       
+                    STASH = 0x297870    "BiMap"

typedef struct {
    U64 addr;
...
    U32    used;
    double factor;
} BIMAP;

Object:0000000002F46C20 byInt:0000000002F46C50 byStr:0000000002F46E60 
+size:32 used:26 Object:0000000002F46C20 byInt:0000000002F46C50 byStr:
+0000000002F46E60 size:32 used:26
   0: pair:[00000000000E6220] 0000000013 m          [ byStr:     29 ] 
+                   0: pair:[00000000000E89A0] 0049572176 αλ?        [
+ byStr:     29 ]
...
  29:[EMPTY SLOT]                                   [ byStr:     17 ] 
+                  29:[EMPTY SLOT]                                   [
+ byStr:     17 ]
  30:[EMPTY SLOT]                                   [ byStr:      8 ] 
+                  30:[EMPTY SLOT]                                   [
+ byStr:      8 ]
  31:[EMPTY SLOT]                                   [ byStr:     14 ] 
+                  31:[EMPTY SLOT]                                   [
+ byStr:     14 ]

RV->PVMG->IV points to BIMAP struct:
 2f46c20:[0000000002F46C50] byInt----+
...
 2f46ec8:[byStr[6]byStr[7]]
 2f46ed0:[byStr[8]byStr[9]]
 2f46ed8:[byStr[0]byStr[1]]

#! perl -slw
package BiMap; use strict; #use Config;
...

#printf "$_ : %I64x\n", $bm->findByStr( $_ ) for 'a'x$S .. 'z'x$S;