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