fix perl typo