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

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

foreach (keys %email_owners) {
    print "Owner: $email_owners{$_}\n";
    print "E-mail: $_\n";
}

##</code><code>##

for(0 .. $#owners) {
    print "Owner: $owners[$_]\n";
    print "E-mail: $addys[$_]\n";
}