in reply to [untitled node, ID 303225]

This sounds like the perfect use for Quantum::Superpositions. 
my @range = (1, 2, 3, 9, 4.6);
if ($var = any(@range)) {
    # Do stuff here
}

[download]

------
We are the carpenters and bricklayers of the Information Age.

The idea is a little like C++ templates, except not quite so brain-meltingly complicated. -- TheDamian, Exegesis 6

... strings and arrays will suffice. As they are easily available as native data types in any sane language, ... - blokhead, speaking on evolutionary algorithms

Please remember that I'm crufty and crochety. All opinions are purely mine and all code is untested, unless otherwise specified.

In Section Seekers of Perl Wisdom