打破perl中遍历hash的each（）函数

Question

我正在使用while循环来查看哈希。在while循环中，我希望能够从内部终止循环。下面的代码在停止循环方面起作用，但是当下次再次执行代码时（它在一个更大的循环中），循环在断开的地方继续。我想我需要以某种方式重置每个功能，但我不知道该怎么做。

my $break = 0;
while (!$break() and (($key,$value) = each %ENV)) {
    print "$key=$value\n";
    if ($key eq "stop") {
       $break = 1;
    }
}