>>429
今見たら

sub AAA {
　　my $a=shift;
　　while (my ($key,$val)=each　%hoge)　{
　　　　if ($val=~/$a/) { # $valの一部に$keyが含まれていたら
　　　　　　　　&AAA($key);
　　　　　　　　　　:
　　　　}
　　}
}

のような気もせんではないけど・・・・