Something else to note - you've got the overhead of modifying @_ with those shift() calls. @_ at first is only a view to the stack. If you modify it, perl has to go create the array and make it real. Drop the shifts() and see if that does anything for you.