for my $key(keys %{$config->{client}}) {
    print $config->{client}->{$key};
  }
---------------------------------------------------------------------------

{
    "short_name": {
        "0r12": "2010/1/02",
        "0r13": "2010/1/03",
        "0r20": "2010/2/00",
        "v3": "3/0"
    },
    "client": {
        "2010/1/03": {},
        "2010/2/00": {
            "well": {
                "name": "wellstar",
                "server": "int-dev-wellstar"
            },
            "mtehc": {
                "name": "mtehc",
                "server": "int-dev-mtehc"
            }
        },
        "3/0": {
            "well": {
                "name": "wellstar",
                "server": "int-dev-wellstar3"
            },
            "stl": {
                "name": "stlouis",
                "server": "int-dev-stl"
            },
            "mer": {
                "name": "meridian",
                "server": "int-dev-meridian3"
            }
        }
    }
}