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

If I wanted it to be fast and concise, I'd probably go with:

$hosts{$_}==$table_count or delete($hosts{$_})
   for keys %hosts;

[download]
use Moops; class Cow :rw { has name => (default => 'Ermintrude') }; say Cow->new->name

In Section Seekers of Perl Wisdom