@a=1..1000; 
cmpthese -1,{
    a=>q[ my$n=0; for my $i (1..1000) { Quantum::Superpositions::any( @a ) eq $i and ++$n } ], 
    b=>q[ my$n=0; for my $i (1..1000) { List::MoreUtils::any{ $i eq $_ } @a      and ++$n } ],
};;
            (warning: too few iterations for a reliable count)

  s/iter      a      b
a   15.4     --   -99%
b  0.103 14834%     --