use strict;
use Data::Dumper;
my $package_name = "Data";
print Dumper *{$::{$package_name."::"}}{HASH};