my @temparr = values %arr;
my $mean_of_arr = &average(\@temparr);