my $couldy=['cloudy','t','f']; # 'cloudy' is the node name and 't','f'
+ are the values this node can assume. Likewise for other nodes.
my $sprinkler=['sprinkler','t','f'];
my $rain=['rain','t','f'];
my $wetgrass=['wetgrass','t','f'];
my $values=[$sprinkler,$couldy,$rain,$wetgrass]; 

##</code><code>##

my $raValueSets =
   [
      ['cloudy', 't', 'f'],
      ['sprinkler', 't', 'f'],
      ['rain', 't', 'f'],
      ['wetgrass', 't', 'f'],
   ];

##</code><code>##

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

##</code><code>##

    my ($node) = @_;