my %combinedfile = ();
my @file_list = ();

foreach my $file (@ARGV)
{
    my $basename = substr($file, rindex($file, '/') + 1);
    my $name = uc(substr($basename, 0, rindex($basename, '.')));

 push(@file_list, $name);

    if (open(F, $file))  # Open the first file
    {
        while (my $line = <F>)
        {
            chomp($line);
 
            my @item = split("\t", $line);
            my $id = defined($item[0]) ? $item[0] : '';

 my $count = defined($item[1]) ? $item[1] : 0;  $count
            next if ($id eq '');

            $combinedfile{$id} = () if (!defined($combinedfile{$id}));

$combinedfile{$id}->{$name} = 0 if (!defined($combinedfile{$id}->{$name}));

$combinedfile{$id}->{$name} = $count;  
        }

        close(F);
    } # Then iterate to the next file 
}print "ID";

foreach my $name (@file_list)
{
    print "\t$name";
}

print "\n";

foreach my $id (sort keys %combinedfile)
{
    print "$id";

    foreach my $name (@file_list)
    {
        my $count = defined($combinedfile{$id}->{$name}) ? $combinedfile{$id}->{$name} : 0;
        print "\t$count";
    }

    print "\n";
}

exit(0);