>>775
valuesでリセットできるのですね。
勉強になります。

while (($key, $value) = each(%{$_})) {
print($key . "\n");
}

今回はハッシュのキーが複数になる可能性があるので
こんな感じで解決しました。