while (($key, $value) = each %hash) {