Since it is not clear to me what problem you are trying to solve, all I can offer is the following generic advice.

Provide more details regarding your problem. Is your output not what you expect it to be? Are you getting unexpected warning or error messages (after you add use warnings and use strict, as others have suggested)?

Neaten your code up with perltidy.

There are too many constructs named "product": a sub, a hash and a reference. Since you do not seem to be passing the hash around anywhere, you should consider reducing confusion by eliminating the hash variable. For example, instead of $product{id} why not just $id?

Use more parentheses to group terms of your long expressions, and then use named operators:

if (($db eq $name) and ($comm eq $commandstop) and ($cachedel eq 'No')
+)
[download]