I presume you have profiled the code so that you know where the major portion of the time is being spent. How about you show us a small working sample that demonstrates the actual issue? What you have shown so far doesn't really illustrate any problematic Perl code.