use strict;
use Set::Scalar;

my $s = Set::Scalar->new( qw/yes no/ );

my $var = "no";

if ( $s->has($var)){
    print "found $var\n";
}
else{
    print "never heard of $var\n";
}
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Marvelous Managed Hosting and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.