foreach $key (keys %Host_Records) {
print "Host: ".$key."\n";
}