use Quantum::Superpositions 'any';
# OR
#use Perl6::Junction 'any';

for (my $n = 0; $n < 268; $n++) {
    if ($n == any(40,47,76)) {
       print $n."\n";
    }
}