Bug Reporting II

How about running with mod_perl? Judging from the nature of the site and that all content is dynamic that may provide a huge performance boost.

my ($x);
map {if (/^msg=(.*)/) {$x.=$1}} @A;
if ($x) {...do something...}(

I am sure that this will work in a mod_perl environment and the "undef" is not necessary. When you declare the variable with the "my" the variable is reinitialized.You are right though, you would have to search for all accumulating functions ie (.=, +=, and push) and be sure all variables are declared. I have learned that "use strict;" while annoying is your friend in the long run Sure, one of my trades is a Perl slinger. However, I am booked right now but maybe this fall or winter.

Could it be that the database is getting large and INSERTS are getting stacked up, since they can be very expensive depending on the indexes used.