ken@titan ~/tmp/pm_11152777_test_stdin/data
$ cat test1.json
{
    "key1" : "val1",
    "key2" : [
        "elem1",
        "elem2",
        "elem3"
    ],
    "key3" : {
        "name1" : "value1",
        "name2" : "value2"
    }
}

$ cat test1.perl
{
    key1 => 'val1',
    key2 => [qw{elem1 elem2 elem3}],
    key3 => {name1 => 'value1', name2 => 'value2'},
};

$ cat testA.json
{
    "keyA" : "valA",
    "keyB" : [
        "elemA",
        "elemB",
        "elemC"
    ],
    "keyC" : {
        "nameA" : "valueA",
        "nameB" : "valueB"
    }
}

$ cat testA.perl
{
    keyA => 'valA',
    keyB => [qw{elemA elemB elemC}],
    keyC => {nameA => 'valueA', nameB => 'valueB'},
};