while ( defined($tail_line = $tail_file->read) ) {
    foreach my $key ( keys %pattern ) {