use Data::Dumper;
foreach $key (keys %Host_Records) {
print Dumper \%Host_Records{$key};
}

Geht sowas in der Art mit dem Dumper?