You can use the each function:

#!/usr/bin/perl -w

use strict;

my %email_owners;

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

my ($owner, $addy);
while ( ($addy, $owner) = each %email_owners) {
  print "Owner: $owner\nEmail: $addy\n";
}
[download]

Arjen