The snippet of code below is taking some time in doing what it does (computes min, max and means of several arrays). Is there a way to speed up the process?

List::Util is a module written in XS, which does the same as your subroutines do (min, max). Because it's written in XS, it's definitely faster than what you have now.

There's no mean function, but that can be worked around by simply doing:

my $mean = sum(@list) / @list;
[download]

update: I just looked into Statistics::Descriptive, and it seems a little too much for what you want. If all you want is the minimum, maximum and the mean, I'd use List::Util

[ ar0n ]