Or with a slice:

delete @hosts{ grep { $hosts{$_} != $table_count } keys %hosts };
[download]