my $bigpattern = '(' . join('|',@patterns) . ')';
while (my $inputline = <FILE>) {
    if ($inputline =~ /$bigpattern/io) {
          ## Logic goes here
    }
}