use strict;
use warnings;

my $dir = 'F:\project_files';
my $fInName = 'carson_county_abstract.txt';
my $fOutName = 'cars_abstract.txt';
my %docs;

opendir my $dirScan, $dir or die "Failed to open $dir: $!\n";

while (defined(my $entry = readdir $dirScan)) {
    next if $entry !~ /docs(.*)/;

    my $currParcel = $1;
    my $filePath = "$dir\\$entry";

    open my $inFile, '<', $filePath or die "Can't open $filePath: $!\n";
    while (defined (my $line = <$inFile>)) {
        chomp $line;
        $docs{$line} = $currParcel;
    }
    close $inFile;
}

open my $fIn, '<', $fInName or die "Failed to open $fInName: $!";
open my $fOut, '<', $fOutName or die "Failed to create $fOutName: $!";
while (defined (my $line = <$fIn>)) {
    next if $line !~ /Document #: ([0-9]*)(.*)/;
    print $docs{$1} . "\n";
    print $fOut "parcel# $docs{$1} doc num $1 $2\n";
}
close $fOut or die "Error closing $fOut: $!\n";