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

##</code><code>##

$p = \$$p->{$_} ...