Let me play with that, I'll have to figure out how to read the string from the json file properly i imagine... i'm currently using:

sub ServerData {
    $GSD_JSON = do {
        open (JSONDATA, "<:encoding(UTF-8)", "/HTTPS/prinet\.org/\.dat
+a\.settings");
        local $/;
        <JSONDATA>
        };
    close (JSONDATA);
    $GSD_Handle = JSON->new;
    return ($GSD_Handle->decode($GSD_JSON));
    }
[download]

which gives me a one-liner $json_string (that i was trying to make a %hash with $key{$value} with. thanx, let me fiddle with your suggestion