use List::Util qw(min max sum);

my $min = min keys %hash;
my $max = max keys %hash;
my $avg = sum(keys %hash) / keys %hash;

# Won't work: avg keys %hash;