Re: IN-style operator for set of possible values

[kejohm]

You can always rely on the power of quantum computing:

use 5.012;
use Quantum::Superpositions;

my $myfruit = 'apples';

if ( $myfruit eq any( qw(bananas apples oranges) ) ) {
    print "I like $myfruit!";
}
else {
    print "I don't like $myfruit!";
}