fix perl critics