Select Code to Download

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        56        A        E   1       2
I        9        A        B    0.275   14

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
...
}
-e syntax OK