keys %$ht;  # Reset iterator
while (my ($key, $value) = each(%$ht)) {