perl syntax fix