perl -e 'my @lines=`cat best_scores_alltargets.CSfirst.dat`; for(@lines) { if($n++==0) { print; } @fs=split; $ts{$fs[0]}{$fs[1]} = $fs[5]; $line{$fs[0]}{$fs[1]}=$_; } for $t(sort keys %ts) { my @serv_sort = reverse sort {$ts{$t}{$a} <=> $ts{$t}{$b}} keys %{$ts{$t}}; my @av=(); for $i(0..9) { @fs=split /\t/, $line{$t}{$serv_sort[$i]}; for $j(2..$#fs) { $av[$j] += $fs[$j]; }  } print "$t\tAvTop10"; for $j(2..$#av) { $av[$j] *= 1/10.0; printf "\t%.4f", $av[$j]; } print "\n"; } ' > av_scores_ontop10_alltargets.CSfirst.dat