You could:

• Post the code, and let us help
• Try running it under the debugger
• Have a look at Devl::Dprof, a perl profiler

I'm guessing you've already taken a step back and reviewed the code, following the code paths and loops ?