### Console Message if enabled
print ": $JsonId\n";
print(" - JsonResponse             : " . $json                    . "\n");}
print(" - JSON Type                : " . $json->{type}            . "\n");}
print(" - JSON setpointProperty    : " . $json->{setpointProperty}. "\n");}
print(" - JSON switchPoints        : " . $json->{switchPoints}    . "\n");}

my @temparray = $json->{switchPoints};
print(" - JSON temparray           : ");
print @temparray;
print("\n");


print(" - JSON temparray[1]        : ");
print $temparray[1];
print("\n");