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.txt 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