while (my ($k,$v) = each %hash)