my %numbers = ();
@numbers{10..15,17,18,22..35} = ();

if (exists $numbers{$x}){
   # do stuff
}