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