print Dumper $json_decoded;
            for my $key1 (keys $json_decoded)
            {
                # key1 = data
                print "key 1:  $key1 + $json_decoded->{$key1}\n";
                for my $key2 (keys $json_decoded->{$key1}) 
                {
                    # key2 = 0 .. x
                    print "key 2:  $key2 + $json_decoded->{$key1}[$key
+2]\n";
                    for my $key3 (keys $json_decoded->{$key1}[$key2]) 
                    {
                        # key3 = storageDeviceId,model,etc
                        print "key 3:  $key3 + $json_decoded->{$key1}[
+$key2]{$key3}\n";
                        $REST_storage{$key3} = $json_decoded->{$key1}[
+$key2]{$key3};
                    }
                }
            }
[download]

$VAR1 = {
          'data' => [
                      {
                        'svpIp' => '10.1.1.1',
                        'model' => 'xyz',
                        'storageDeviceId' => '800000058068',
                        'serialNumber' => 58068
                      }
                    ]
        };
key 1:  data + ARRAY(0x2c79f78)
key 2:  0 + HASH(0x321a140)
key 3:  svpIp + 10.1.1.1
key 3:  model + xyz
key 3:  storageDeviceId + 800000058068
key 3:  serialNumber + 58068
[download]

Does this help?

So you have a version that works but did not apply the changes that I suggested. When I mentioned a self-contained example, I meant something like the following below, which does not need any editing to be runnable:

use strict;
use Data::Dumper;

my %REST_storage;

my $json_decoded = {
          'data' => [
                      {
                        'svpIp' => '10.1.1.1',
                        'model' => 'xyz',
                        'storageDeviceId' => '800000058068',
                        'serialNumber' => 58068
                      }
                    ]
        };

            print Dumper $json_decoded;
            for my $key1 (keys %$json_decoded)
            {
                # key1 = data
                print "key 1:  $key1 + $json_decoded->{$key1}\n";
                for my $key2 (keys @{ $json_decoded->{$key1} }) 
                {
                    # key2 = 0 .. x
                    print "key 2:  $key2 + $json_decoded->{$key1}[$key
+2]\n";
                    for my $key3 (keys %{ $json_decoded->{$key1}[$key2
+] }) 
                    {
                        # key3 = storageDeviceId,model,etc
                        print "key 3:  $key3 + $json_decoded->{$key1}[
+$key2]{$key3}\n";
                        $REST_storage{$key3} = $json_decoded->{$key1}[
+$key2]{$key3};
                    }
                }
            }
[download]

That code is explicit about what it uses instead of relying on keys on a reference still working.

Maybe you can look at this code and determine whether it applies to your situation or not. I didn't try this with a recent Perl version.

This works! It is an array and not hash, of course. Thanks a lot for your help.

Does this help?

Not as much as it could; because its data is not bundled with the code it is not a short, self-contained example. To provide a complete answer someone would have to do the extra work of reverse-engineering your data-structure to figure out what it looked like in the first place. And frankly, many potential answers will not be written, or will be less helpful than they could have been because the prospect of extra, error-prone work of reverse-engineering sample data from code that is known to be buggy discourages people from helping, particularly when it would not be much effort for the person asking to provide a small data sample in the first place.

Your code snippet could have been like this:

use strict;
use warnings;
use JSON qw(decode_json);
my $json_decoded = decode_json(do {local $/ = undef; <DATA>});

#...your code goes here...

__DATA__
{"foo":"bar",
"baz":["buzz":1]
}
[download]

...or...

use strict;
use warnings;

my $json_decoded = {foo => 'bar', baz => ['buzz', 1]};

# Your code goes here...
[download]

In either case we would have all the facts in front of us, and could run your sample code and see the output you are seeing.

At any rate, see my answer at a higher-level in this thread for an explanation of the benefit of diagnostics when a terse error message feels cryptic.




Dave

You are right, I apologize for that. Will do better the next time.