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