Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    print "Owner: $email_owners{$_}\n";
    print "E-mail: $_\n";
}

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