use List::MoreUtils qw( );
BEGIN { *any_of = \&List::MoreUtils::any; }

if (any_of ...) {
   ...
}