my $regex = join '|', map quotemeta, keys %patterns;
while ( defined($tail_line = $tail_file->read) ) {
   if ($tail_line =~ m/($regex)/) {
       print "logging $pattern{$1} for $tail_line";
   }
}