@regexes = ();
for $pattern (@patterns) {
    push @regexes, qr/$pattern/;
}
for $item (@data) {
    for $re (@regexes) {
        if ($item =~ /$re/) { print "Matches!\n"; }
    }
}