udat before:
a
1
ok (num=1)
$mdat{cnt} = --
$udat{cnt} = --
udat after:
ok (num=1)
2 udat after write:
b
2
ok (num=1)