CGI Find the Median Value of an Array

# median() returns a median value.
# USAGE: median(@array) where @array is
# an array of all values
# to be considered.
#
sub median {
my(@values) = sort(@_);
my($mid) = scalar(@values) >> 1;

# If there is an even number of values
# in @values, then you need to add them
# and divide by two to get the median.

return($values[$mid]) if $mid & 1;

($values[$mid-.5] + $values[$mid+.5]) / 2;
}