Using JSON-2.53 I get:

$ perl -MJSON -E'say JSON->new->allow_nonref->encode({lool=>"WEEEE",YA
+Y=>"WEEEE"})'
{"lool":"WEEEE","YAY":"WEEEE"}
[download]

Did you miss something in the example code?