Perl: define some missing nodes states