%email_owners = (
  'mike@foo.net' => 'Mike Foo',
  'jwtheis@smic.net' => 'Jim Theis',
  'happy@bobbarker.net' => 'Happy Gilmore'
);

while(my($addy, $owner) = each %email_owners) {
  print "Owner: $owner\n";
  print "E-mail: $addy\n";
}

__output__

E-mail: jwtheis@smic.net
Owner: Happy Gilmore
E-mail: happy@bobbarker.net
Owner: Mike Foo
E-mail: mike@foo.net

##</code><code>##

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