use Data::Dumper;
$x = 1;
print Dumper( \%:: );