perl: Fix warnings