In addition to Corions advice, have you benchmarked/profiled your code using something like Devel::NYTProf?

Also see Debugging and Optimization

Hope this helps

Martin