data.txt

@gi
AGATC
+
E/AA#	 1

@gi1
ACCTA
+
/66AE	 3


##</code><code>##


data1.txt

@gi
AGATC
+
//AA#	 2

@gi1
ACCTA
+
#66AE	 5


##</code><code>##

@gi
AGATC
+
E/AA#	 3

@gi1
ACCTA
+
/66AE	 8

##</code><code>##

@gi
AGATC
+
E/AA#	 1

@gi1
ACCTA
+
/66AE	 3

@gi
AGATC
+
//AA#	 2

@gi1
ACCTA
+
#66AE	 5


##</code><code>##


my %compare;

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

   

    push( @{ $compare{$key} }, $value );

}

foreach my $key ( sort keys %compare ) {
my $tot = 0;
my $file_count = @ARGV;
for my $val ( @{$compare{$key}} ) {
        $tot += ( split /:/, $val )[0];
    }   
    
if ( @{ $compare{$key} } >= $file_count) {


        print join( "\t", $key, $tot, @{ $compare{$key} } ), "\n\n";
    }
}