no warnings qw(uninitialized numeric);
print "\$x is a number ($x) is either 1, 2, 3, 4, or 5.\n"
  if grep {$x == $_} (1 .. 5);