while(my $k = each %H) {
   print "$k does not exist\n"  if (!exists $H{$k});
}