Select Code to Download

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

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