>>793
それでいいんじゃないかと思うけど、その他の解として
$HASH->{HASH} = { map { $_ => 0 } keys %{$HASH->{HASH}} };
とか。キーの値がA-Zならこうとか。
$HASH->{HASH} = { map { $_ => 0 } 'A' .. 'Z' };