$ cat HoH.pl 
use strict;
use Data::Dumper;
our $HoH;
require 'hash';
print Dumper($HoH);

##</code><code>##

use strict;
use Data::Dumper;
use vars qw/ $HoH /;
require 'hash';
print Dumper($HoH);