perl: Fix warning