use Quantum::Superpositions;
use strict;

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