if (&{sub { $bigstring =~ /$_/ and return 1 for @array }}) {
        ...;
    }

##</code><code>##

    my $matched;
    $matched = $bigstring =~ /$_/ and last for @array;
    if ($matched) {
        ...;
    }

##</code><code>##

    if (grep $_, map $bigstring =~ /$_/, @array) {
        ...;
    }

##</code><code>##

    if (map $bigstring =~ /$_/ ? 1 : (), @array) {
        ...;
    }