in reply to Pronoun Programming

Why not collect the candidates and delete them all at once:

delete @log_count{grep($log_count{$_} == 0, keys %log_count)};

A little compressed, I know. You could break it into two lines, I guess:

@bad_log_entries = grep($log_count{$_} == 0, keys %log_count); delete @log_count{@bad_log_entries};

Just a thought...

Brett Diamond