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