in reply to Quicker way to do this IF statement 1-5

Just to add your bag: 
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);

[download]

Open source softwares? Share and enjoy. Make profit from them if you can. Yet, share and enjoy!

In Section Seekers of Perl Wisdom