$ perl -Mv5.14 -MList::Util=any -e'say 0+any { $_ > 3 } 1..5'
1

$ perl -Mv5.14 -MList::Util=any -e'say 0+any sub { $_ > 3 }, 1..5'
1