Can't localize lexical variable $cnt at ...