Select Code to Download

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 $rain=['rain','t','f'];
my $wetgrass=['wetgrass','t','f'];
my $values=[$sprinkler,$couldy,$rain,$wetgrass];

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

sub cpt
{
...
    }
    ...
}

    my ($node) = @_;