http://www.perlmonks.org?node_id=1081983


in reply to map {} list or do {} for list?

Or with a slice:

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