This topic was recently discussed in this thread.

Oh, you want an idiom? How about...

grep int $foo == $_, 1..9 or die;
[download]

Just kidding :-)

And yes, I know, this screws up the 1 < x part...

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print