Select Code to Download

  my $regex = join '|', @all_the_different_values;

  if ( $data =~ /$regex/ ) . . .

  if ( $data =~ /^($regex)$/ ) . . .

  my %set;
  @set{ @all_the_different_values } = (); # make the set

  if ( exists $set{ $data } ) . . .