Multiple "our" declarations in the same lexical scope are
   allowed if they are in different packages.  If they happened to
   be in the same package, Perl will emit warnings if you have
   asked for them.

       use warnings;
       package Foo;
       our $bar;       # declares $Foo::bar for rest of lexical scope
       $bar = 20;

       package Bar;
       our $bar = 30;  # declares $Bar::bar for rest of lexical scope
       print $bar;     # prints 30

       our $bar;       # emits warning

##</code><code>##

 package File_Rating_DB; #pckg ONE
 sub write_db(){}...

 package Entry_Ordering; #pckg TWO
 our @ISA = qw(File_Rating_DB);
 sub next_rand_or_recorded_file() {}...

 package Entry_Display_In_Wins; #pckg THREE
 our @ISA;
 push @ISA, qw(Entry_Ordering);
 sub __hk_space(){ call next_rand_or_recorded_file}...
 sub __hk_quit(){ ...calls write_db on exit }
 sub handle_key($tkcontext,$dbhandle,$key_event, $key_code) {}

 package Timed_Display_In_Wins; #pckg FOUR
 our @ISA;
 push @ISA, qw(Entry_Display_In_Wins); sub _handle_timer(){}