my $color = "green";
  my ($ans) = query "colors[name = ?](rating)", $color;
  print "Rating: ", $ans->[0], "\n"; # prints "Rating: 10\n"