if ($name ~~ [$t1, $t2]) { ...; } #### use match::smart "match"; if (match $name, [$t1, $t2]) { ...; } #### use match::simple "match"; if (match $name, [$t1, $t2]) { ...; } #### use List::Util "any"; if (any { $name eq $_ } $t1, $t2) { ...; }