#!/usr/bin/perl

use strict;
use warnings;

use JSON;

# Rohdaten in Variable speichern
my $json = <<ENDJSON;
[
{
"oid" : 11365,
"label" : "SystemState.Global.Measurement.AcPowerTotal",
"type" : "i",
"val" : "1667",
"uitext" : "AC Power",
"savetype" : 2,
"factor" : 1.000000,
"unit" : "W",
"portal" : 0,
"AutoZero" : 1,
"fb" : 1
},
{
"oid" : 11650,
"label" : "SystemState.Global.OperatingStatus",
"type" : "i",
"val" : "10",
"uitext" : "operating status",
"savetype" : 2,
"factor" : 1.000000,
"unit" : "",
"portal" : 2,
"AutoZero" : 1,
"fb" : 1
}
]
ENDJSON

# Daten in Perl-Datenstruktur (hier: Arrayref of Hashrefs) einlesen
my $perl_hash_or_arrayref  = decode_json $json;

# Zugriff auf die Werte: [0] bezeichnet den ersten Datensatz, {val} den daraus zu entnehmenden Wert.
print $perl_hash_or_arrayref->[0]->{val};