print "Owner: $email_owners{$_}\nE-mail: $_\n"
  for keys %email_owners;