my $p = \\%hash; $p = \$$p->{$_} for @cats; $$p->{_val} = $value;