fix perl syntax error