foreach $key(%my_hash) {
  delete $my_hash{"$key"} if(!exists($my_hash{"$key"}));
}