#!/usr/bin/perl -w
use strict;

my %email_owners;
my @owners;
my @addys;

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

@owners = values (%email_owners);
@addys = keys (%email_owners);

foreach (@owners) {
  print "Owner: $_\n";
    foreach (@addys) {
      print "E-mail: $_\n";
    }
}