[0] Perl> @a = map [ map{ rand( 1000 ) } 1 .. 10 ], 1 .. 25e3;;
[0] Perl> 
$t = time; 
push @$_, sum( @$_ ) / @$_ for @a; 
printf "Took %.6f\n", time() - $t;;
Took 0.045407