while (@parts) {
        my $part = shift @parts;

        $parent = $parent->{$part} ||= {};
        next if @parts;
        $parent->{_name_} = $protein;
    }


##</code><code>##

while ($wIndex < @words && exists $parent->{$words[$wIndex]}) {
        @best = ($parent->{_name_}, $wIndex) if exists $parent->{_name_};
        $parent = $parent->{$words[$wIndex++]};
    }