$things{ $thing }{$someotherkey}[$someindex]{$somekey}[ $_ ] = $things{ $thing }{$someotherkey}[$someindex]{$somekey}[ $_ ] + 1 % 10 for 1 .. 10;