http://www.perlmonks.org?node_id=152569


in reply to Comparing against multiple values

I think it could be a work for Quantum::Superpositions. 
use Quantum::Superpositions;
use strict;

if ($foo eq any( $bar, $baz, $boo )) {
    print "Yep!";
}

[download]

In Section Seekers of Perl Wisdom