use List::Util qw( any );
if ( any { $string eq $_ } qw( Trig Sin Cos ) ) {
# ... 
}