perl: Fix warning about unsharing the $dc variable