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