ハッシュを無名変数へ代入して任意の値を取り出したい

質問

%allarray内の'あああ'を表示させたいのですが、
foreach構文で回して
if($name eq "$allarray{$key}"){
$TopName=$allarray{$key};
}
とその都度してから$TopNameで表示させるのがだるいので下記のように無名変数へハッシュを代入して取り出せないかと試行錯誤しているのですが、解決に至るアドバイスなど頂けませんでしょうか

$name='aaa';
%allarray = (
'aaa' => 'あああ',
'kakaka' => 'かかか',
'sasasa' => 'さささ',
);

$mumei=\%allarray;
$TopName=$mumei{$$allarray}{$name};

print "$TopName";
で
>あああ
と表示させたいのです

お忙しいかとは存じますがよろしくお願いします。

回答No.2

atom_seed

良く分からないんだけど、分からないなりに回答。

$TopName = $mumei->{$name};
$TopName = $allarray{$name};