Hast Du mal über die Variable time an ein paar Punkten die aktuelle Zeit festgehalten um mal grob zu sehen, in welchem Abschnitt es lange dauert?
perldoc -f time
Dann hat man schonmal einen Anhaltspunkt und weiß, von welchem "ewig" man redet und an welcher Stelle die Ursache liegen könnte.