foreach my $addy(keys %email_owners) {
   print "Owner: $email_owners{$addy}\n";
   print "Address: $addy\n\n";
}