fix perl bug