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

}

# or by:
foreach (keys(%hash)) {

}