for my $name (@unlike) {
    my @hosts = map {$entries{$name}{$_}{host}} keys %{$entries{$name}};
    print "$name found on \n\t", join ("\n\t", @hosts), "\n\n";
}