perl: Fix duplicate UID