擬古Ｘ居る？
ハッシュのハッシュって
$foo = \%hash
$foo->{'bar'}->{'com'} = 'value';
でOK？