use List::Util 'any'; if (any {$x == $_} $y, $y +1, $y -1)