use Quantum::Superpositions;
if ($string eq any(qw(Trig Cos Sin))) { ... }