my $hash = {};
my @heading = ( 'name' );
my @report;
for my $fn ( sort @filenames ) {

    open my $fh, '<', $fn
        or die "Error opening file ${fn}: $!\n";

    # Read in each filename and populate the hash
    #
    while (<$fh>) {
        chomp;
        s%\r%%;
        my @line = split /\|/;
        my @curnums = split( ',', $line[2] );

        for my $curnum ( @curnums ) {
            next unless $defined $nums_to_names->{$curnum};
            if ( ! defined $hash->{$fn} or ! defined $hash->{$fn}->{$curnum} ) {
                $hash->{$fn}->{$curnum} = 1;
            } else {
                $hash->{$fn}->{$curnum}++;
            }
        }
    }

    # Iterate the mapping of numbers to names
    #
    for my $curnum ( sort keys %$nums_to_names ) {

        my @report_line;

        # Skip it unless it's defined and has a value
        #
        my $name =
            defined $nums_to_names->{$curnum}
            &&      $nums_to_names->{$curnum}
                  ? $nums_to_names->{$curnum}
                  : next
                  ;

        push @report_line, $name;


        # For the current mapping number, pluck the corresponding counts 
        # related to each file
        #
        for my $curfilename ( sort keys %$hash ) {

             my $count =
                        defined $hash->{$curfilename}->{$curnum}
                        &&      $hash->{$curfilename}->{$curnum}
                      ? commify($hash->{$curfilename}->{$curnum})
                      : 'empty'
                      ;

            push @report_line, $count;

        }

        push @report, \@report_line;

    }

}

push @heading, basename($_) for sort @filenames;