fix typo

ref $_ ne COD -> ref $_ ne CODE