$ perl /tmp/median.pl 
     s/iter  sort   skt
sort   20.5    --  -94%
skt    1.25 1542%    --
mediam 0.499785519518444, 0.499785519518444