But Data::Dumper really shines when you have a hash-of-hashes-of-arrays-of... you get the idea. If you have a hash of hashes, you could use the code

for my $first_key (sort keys %hashiness) {
    print "$first_key =>\n";
    for my $second_key (sort keys %{$hashiness{$first_key}}) {
        print "\t$second_key\n";
    }
}
[download]

or you could just do

print Dumper(%hashiness);

It gets comparatively easier to use Data::Dumper rather than your own print statements as your data types increase in complexity.