sub find_good_keys 
{
  my ($hashr, $fitness) = @_;
  return map { $fitness->($_, $hashr ) } keys %$hashr 
}