use Data::Dumper;
%% = (foo => 1, bar => 2);
print Dumper \%%;