use Math::VecStat qw(average);

my $avg = average( keys %hash );
[download]

For more stats, take PDL

Jeroen
"We are not alone"(FZ)