9 my ($avg, $var) = (0, 0);
11 return 0 if (scalar(@elems) == 1);
16 $avg /= scalar(@elems);
21 $var /= scalar(@elems)-1;
28 my ($lower, $upper) = (0.25 * $#elems, 0.75 * $#elems);
30 $lower = POSIX::ceil($lower);
31 $upper = POSIX::ceil($upper);
33 return @elems[$lower..$upper];