in Perl:

  sub values_in(\@\%) {
    my ($keys, $d) = @_;
    grep { $d->{$_} } @$keys
  }