while ( my ($key,$value) = each %hosts) { delete $hosts{$key} if $value != $table_count; }