my $valid = join "|", @valid;
print "okay" if /^$valid$/;