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