while (1) {
  for $key (keys(%myhash)) {
    if (&isPassTest()) {
      delete($key);
    }
  }
}