use Data::Dumper;

my %hoh;

my $info = Dumper \%hoh;

...