I have applied my smartness as much as I could to this function.

So, I wanted the perl geniuses to look at it and let me know If I was doing something that is costing me time and If I can change it to enhance performance of the function.

basically, what I'm saying is I can not go further in this function to make it any better. I applied all my knowledge.