Trouver une correspondance dans un tableau de patterns

Bonjour,

Soit un tableau d'expressions régulières my @patterns, et une expression
my $string.

@patterns n'est pas forcément trié.

Ai-je une autre façon de faire que 

my $found=0;
foreach(@patterns){
    if ($string =~ $_){
        $found=1;
        last;
    }
}

Parce que, évidemment, si je fais ça sur tout un fichier de $string, je
suis d'ordre N^2 est c'est lent (et moche, programmaticalement parlant)

Merci,

-- 
XAv
In your pomp and all your glory you're a poorer man than me,
as you lick the boots of death born out of fear.