perl critics...