I just now came looking for how to get the median using Perl. So glad someone had previously had this conversation!