fix perl syntax error

Change-Id: I6eaea19bc0850285def02293a17944e2684a50bf