use Quantum::Superpositions;

    my $cool = any("Chuck", "Mick", "Joe");

    for my $name (qw(Schmoe Joe Chuck)) {

        if ($name eq $cool) {
            print "$name is cool\n";
        }
    }