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

##</code><code>##

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