$var{test.dot} = "a";
print keys %var;