perl syntax error