... somewhat futuristic with Quantum::Superpositions:

    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";
        }
    }
[download]

Since $cool is a (disjunctive) superposition of three values, the expression $name eq $cool is true for three different values of $name: "Chuck", "Mick", and "Joe".