perl  -F"\s+" -ane "push @{$r{join (' 'x8,@F[0..3]) }}, [@F[4,5]]; END
+{foreach $k(keys %r){my($x,$y);map {$x+=$$_[0];$y+=$$_[1]} @{$r{$k}};
+print qq($k\t),($x/scalar @{$r{$k}}),qq(\t$y\n)}}"  uno.txt due.txt

I        33        C        C   0.75    4
I        21        B        A   1       12
I        40        D        D   1       7
I        56        A        E   1       2
I        9        A        B    0.275   14
[download]

which deparsed becomes

perl  -MO=Deparse -F"\s+" -ane "push @{$r{join (' 'x8,@F[0..3]) }}, [@
+F[4,5]]; END{foreach $k(keys %r){my($x,$y);map {$x+=$$_[0];$y+=$$_[1]
+} @{$r{$k}};print qq($k\t),($x/scalar @{$r{$k}}),qq(\t$y\n)}}"  uno.t
+xt due.txt



LINE: while (defined($_ = <ARGV>)) {
    our(@F) = split(/\s+/, $_, 0);
    push @{$r{join ' ' x 8, @F[0..3]};}, [@F[4, 5]];
    sub END {
        foreach $k (keys %r) {
            my($x, $y);
            map {$x += $$_[0];
            $y += $$_[1];} @{$r{$k};};
            print "$k\t", $x / scalar(@{$r{$k};}), "\t$y\n";
        }
    }
    ;
}
-e syntax OK
[download]

L*

PS removed the unused Data::Dump