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