while (my ($key,$value) = each %foo) {
}