#$json_decoded is a refrence
#$json_decoded = 			
#		{
			#
			#  "data" : [ {
			#
			#    "storageDeviceId" : "800000050679",
			#
			#    "model" : "modelname",
			#
			#    "serialNumber" : 12346,
			#
			#    "svpIp" : "10.1.1.1"
			#
			#  } ]
			#
			#}
				
			for my $key1 (keys $json_decoded)
			{
				# key1 = data
				for my $key2 (keys $json_decoded->{$key1}) 
				{
					# key2 = 0 .. x
					for my $key3 (keys $json_decoded->{$key1}[$key2]) 
					{
						# key3 = storageDeviceId,model,etc
						$REST_storage{$key3} = $json_decoded->{$key1}[$key2]{$key3};
					}
				}