War es nicht so, dass gerade Funktionsaufrufe in Perl einen recht großen Overhead haben? Meine sowas gelesen zu haben.

Diese Unterschiede machen aber nicht so viel aus, dass die ein Algorithmus 1s und einer 40s braucht. Da würde ich die Ineffizienz anderswo suchen.