my %seen;

$/ = "";
while (<>) {
    chomp;
    my ($key, $value) = split ('\t', $_);

    my @lines = split /\n/, $key;
    my $key1 = $lines[1];

$seen{$key1}[Key] //= $key;
$seen{$key1}[Sum] += $value;



}
my $file_count = @ARGV;
foreach my $key1 ( keys %seen ) {
  
    if ( @{ $seen{$key1} } >= $file_count) {


        



        print join( "\t", @{$seen{$key1}});
        print "\n\n";
    }
}