($perl{characteristics} eq 'unique') ? $perl{charm}++ : $perl{charm}+=0;