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";
}

##</code><code>##

bjose found on 
	/var/tmp/passwd.hostname2.platform
	/var/tmp/passwd.hostname1.platform