sub orderpos { (($order[$_[0]] + $order[$_[0] + .5]) / 2 - $minval) * $size }
$barmark[ (sum(@order) / @order - $minval) * $size ] = '='; # average
$barmark[ orderpos($#order / 2) ] = '+'; # mean
sub orderpos { (($order[$_[0]] + $order[$_[0] + .5]) / 2 - $minval) * $size }
$barmark[ (sum(@order) / @order - $minval) * $size ] = '='; # average
$barmark[ orderpos($#order / 2) ] = '+'; # mean