while(($key, $value) = each(%projects)) {
    print "DEBUG $key = $value\n";
  }