use Data::Dumper;
...
print Dumper \%reference_hist;