Select Code to Download

my $hits = $log->{hits};
print keys %$hits; # print all the keys
print "$key => $value\n" while (my ($key, $value) = each %$hits); # du
+mp all
print $hits->{keyX}; # print one value