my %in;
undef @in{1, 2, 3..9, -12};

print "$i is a 1, 2, 3, 4, 5, 6, 7, 8, 9, or -12\n"
   if exists $in{$i};