$ perl -MJSON::Syck=Dump -le 'print JSON::Syck::Dump( { a => { b => "c", d => [qw/1 2 3/] } } )'
{"a":{"b":"c","d":["1","2","3"]}}