sub cpt
{
    my ($node, $raParents, $raNodeValues) = @_;
    ...
    foreach my $i ( @$raParents )
    {
        for my $j ( 0 .. $#$raNodeValues )
        {
            if ( $i eq $raNodeValues->[$j]->[0] )
            {
                push @nodeindex, $j; 
            }
        }
    }
    ...
}