silly perl syntax error