my %enum_values = map +($_ => 1), @{ $constraints->{enum} };
  if (keys(%enum_values) && !$enum_values{$value}) {
    my $enum_values_string = join ', ', sort keys %enum_values;
    ...