A slightly more efficient solution (see the discussion below) would use the standard List::Util::first function:

if (defined first { $x == $_ } 1, 3, 7) { ... }
[download]

Note that it is necessary to use defined(), as first() returns the first matching element (which may be zero), not a list.