perl and COA