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