fixed perl-generated hashtable constant