perl: Fix subroutine signature