setting $h{$key}
SV = PV(0x9b08c74) at 0x9d35d48
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,POK,pPOK,UTF8)
  PV = 0x9d337a8 "\303\244\303\244"\0 [UTF8 "\x{e4}\x{e4}"]
  CUR = 4
  LEN = 8
>>store: $VAR1 = "\x{e4}\x{e4}";
SV = PVMG(0x9b823a0) at 0x9d35f28
  REFCNT = 1
  FLAGS = (SMG,POK,pPOK,UTF8)
  IV = 0
  NV = 0
  PV = 0x9b58b38 "\303\244\303\244"\0 [UTF8 "\x{e4}\x{e4}"]
  CUR = 4
  LEN = 8
  MAGIC = 0x9d41510
    MG_VIRTUAL = &PL_vtbl_mglob
    MG_TYPE = PERL_MAGIC_regex_global(g)
    MG_LEN = -1
  MAGIC = 0x9d95400
    MG_VIRTUAL = &PL_vtbl_utf8
    MG_TYPE = PERL_MAGIC_utf8(w)
    MG_LEN = 2
<<store: $VAR1 = "\303\244\303\244";
SV = PVMG(0x9b823a0) at 0x9d35f28
  REFCNT = 1
  FLAGS = (SMG,POK,pPOK)
  IV = 0
  NV = 0
  PV = 0x9d4c998 "\303\244\303\244"\0
  CUR = 4
  LEN = 8
  MAGIC = 0x9d41510
    MG_VIRTUAL = &PL_vtbl_mglob
    MG_TYPE = PERL_MAGIC_regex_global(g)
    MG_LEN = -1
  MAGIC = 0x9d95400
    MG_VIRTUAL = &PL_vtbl_utf8
    MG_TYPE = PERL_MAGIC_utf8(w)
    MG_LEN = -1


reading keys with keys %h
>>fetch: $VAR1 = "\303\244\303\244";
SV = PVMG(0x9b823a0) at 0x9b25d40
  REFCNT = 1
  FLAGS = (SMG,POK,pPOK)
  IV = 0
  NV = 0
  PV = 0x9d48548 "\303\244\303\244"\0
  CUR = 4
  LEN = 8
  MAGIC = 0x9d907c0
    MG_VIRTUAL = &PL_vtbl_mglob
    MG_TYPE = PERL_MAGIC_regex_global(g)
    MG_LEN = -1
<<fetch: $VAR1 = "\x{e4}\x{e4}";
SV = PVMG(0x9b823a0) at 0x9b25d40
  REFCNT = 1
  FLAGS = (SMG,POK,pPOK,UTF8)
  IV = 0
  NV = 0
  PV = 0x9d48ea8 "\303\244\303\244"\0 [UTF8 "\x{e4}\x{e4}"]
  CUR = 4
  LEN = 8
  MAGIC = 0x9d95700
    MG_VIRTUAL = &PL_vtbl_utf8
    MG_TYPE = PERL_MAGIC_utf8(w)
    MG_LEN = 2
  MAGIC = 0x9d907c0
    MG_VIRTUAL = &PL_vtbl_mglob
    MG_TYPE = PERL_MAGIC_regex_global(g)
    MG_LEN = -1


reading with c_get
key before c_get call
SV = PVMG(0x9b82340) at 0x9d35d48
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,SMG,POK,pPOK,UTF8)
  IV = 0
  NV = 0
  PV = 0x9d337a8 "\303\244\303\244"\0 [UTF8 "\x{e4}\x{e4}"]
  CUR = 4
  LEN = 8
  MAGIC = 0x9d24fd0
    MG_VIRTUAL = &PL_vtbl_utf8
    MG_TYPE = PERL_MAGIC_utf8(w)
    MG_LEN = 2
calling c_get
>>store: $VAR1 = "\x{e4}\x{e4}";
SV = PVMG(0x9d69908) at 0x9b25944
  REFCNT = 1
  FLAGS = (SMG,POK,pPOK,UTF8)
  IV = 0
  NV = 0
  PV = 0x9d48890 "\303\244\303\244"\0 [UTF8 "\x{e4}\x{e4}"]
  CUR = 4
  LEN = 8
  MAGIC = 0x9d69748
    MG_VIRTUAL = &PL_vtbl_mglob
    MG_TYPE = PERL_MAGIC_regex_global(g)
    MG_LEN = -1
  MAGIC = 0x9d69708
    MG_VIRTUAL = &PL_vtbl_utf8
    MG_TYPE = PERL_MAGIC_utf8(w)
    MG_LEN = 2
<<store: $VAR1 = "\303\244\303\244";
SV = PVMG(0x9d69908) at 0x9b25944
  REFCNT = 1
  FLAGS = (SMG,POK,pPOK)
  IV = 0
  NV = 0
  PV = 0x9d4b610 "\303\244\303\244"\0
  CUR = 4
  LEN = 8
  MAGIC = 0x9d69748
    MG_VIRTUAL = &PL_vtbl_mglob
    MG_TYPE = PERL_MAGIC_regex_global(g)
    MG_LEN = -1
  MAGIC = 0x9d69708
    MG_VIRTUAL = &PL_vtbl_utf8
    MG_TYPE = PERL_MAGIC_utf8(w)
    MG_LEN = -1
>>fetch: $VAR1 = "\x{e4}\x{e4}";
SV = PVMG(0x9b82340) at 0x9d35d48
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,SMG,POK,pPOK,UTF8)
  IV = 0
  NV = 0
  PV = 0x9d337a8 "\303\244\303\244"\0 [UTF8 "\x{e4}\x{e4}"]
  CUR = 4
  LEN = 8
  MAGIC = 0x9d67040
    MG_VIRTUAL = &PL_vtbl_mglob
    MG_TYPE = PERL_MAGIC_regex_global(g)
    MG_LEN = -1
  MAGIC = 0x9d24fd0
    MG_VIRTUAL = &PL_vtbl_utf8
    MG_TYPE = PERL_MAGIC_utf8(w)
    MG_LEN = 2
<<fetch: $VAR1 = "\x{fffd}\x{fffd}";
SV = PVMG(0x9b82340) at 0x9d35d48
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,SMG,POK,pPOK,UTF8)
  IV = 0
  NV = 0
  PV = 0x9d95ce8 "\357\277\275\357\277\275"\0 [UTF8 "\x{fffd}\x{fffd}"]
  CUR = 6
  LEN = 8
  MAGIC = 0x9d67040
    MG_VIRTUAL = &PL_vtbl_mglob
    MG_TYPE = PERL_MAGIC_regex_global(g)
    MG_LEN = -1
  MAGIC = 0x9d24fd0
    MG_VIRTUAL = &PL_vtbl_utf8
    MG_TYPE = PERL_MAGIC_utf8(w)
    MG_LEN = 2


try again, turning UTF8 flag off key
key before c_get call
SV = PVMG(0x9b82340) at 0x9d35d48
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,SMG,POK,pPOK)
  IV = 0
  NV = 0
  PV = 0x9d95ce8 "\303\244\303\244"\0
  CUR = 4
  LEN = 8
  MAGIC = 0x9d67040
    MG_VIRTUAL = &PL_vtbl_mglob
    MG_TYPE = PERL_MAGIC_regex_global(g)
    MG_LEN = -1
  MAGIC = 0x9d24fd0
    MG_VIRTUAL = &PL_vtbl_utf8
    MG_TYPE = PERL_MAGIC_utf8(w)
    MG_LEN = -1
calling c_get
>>store: $VAR1 = "\303\244\303\244";
SV = PVMG(0x9d69908) at 0x9b25944
  REFCNT = 1
  FLAGS = (SMG,POK,pPOK)
  IV = 0
  NV = 0
  PV = 0x9d4b610 "\303\244\303\244"\0
  CUR = 4
  LEN = 8
  MAGIC = 0x9d69708
    MG_VIRTUAL = &PL_vtbl_mglob
    MG_TYPE = PERL_MAGIC_regex_global(g)
    MG_LEN = -1
<<store: $VAR1 = "\303\203\302\244\303\203\302\244";
SV = PVMG(0x9d69908) at 0x9b25944
  REFCNT = 1
  FLAGS = (SMG,POK,pPOK)
  IV = 0
  NV = 0
  PV = 0x9b1fc40 "\303\203\302\244\303\203\302\244"\0
  CUR = 8
  LEN = 12
  MAGIC = 0x9d69708
    MG_VIRTUAL = &PL_vtbl_mglob
    MG_TYPE = PERL_MAGIC_regex_global(g)
    MG_LEN = -1
>>fetch: $VAR1 = "\303\244\303\244";
SV = PVMG(0x9b82340) at 0x9d35d48
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,SMG,POK,pPOK)
  IV = 0
  NV = 0
  PV = 0x9d95ce8 "\303\244\303\244"\0
  CUR = 4
  LEN = 8
  MAGIC = 0x9d67040
    MG_VIRTUAL = &PL_vtbl_mglob
    MG_TYPE = PERL_MAGIC_regex_global(g)
    MG_LEN = -1
  MAGIC = 0x9d24fd0
    MG_VIRTUAL = &PL_vtbl_utf8
    MG_TYPE = PERL_MAGIC_utf8(w)
    MG_LEN = -1
<<fetch: $VAR1 = "\x{e4}\x{e4}";
SV = PVMG(0x9b82340) at 0x9d35d48
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,SMG,POK,pPOK,UTF8)
  IV = 0
  NV = 0
  PV = 0x9d66fc8 "\303\244\303\244"\0 [UTF8 "\x{e4}\x{e4}"]
  CUR = 4
  LEN = 8
  MAGIC = 0x9d67040
    MG_VIRTUAL = &PL_vtbl_mglob
    MG_TYPE = PERL_MAGIC_regex_global(g)
    MG_LEN = -1
  MAGIC = 0x9d24fd0
    MG_VIRTUAL = &PL_vtbl_utf8
    MG_TYPE = PERL_MAGIC_utf8(w)
    MG_LEN = 2