sub is_present {
    my $cluster = shift;
    scalar grep {/^\Q$cluster\E\.hosts$/o} @{$HoL{$cluster}};
}


##</code><code>##

sub is_present {
    my $cluster = shift;
    scalar grep {$_ eq "$cluster.hosts"} @{$HoL{$cluster}};
}