use Math::VecStat qw(average);

my $avg = average( keys %hash );