-my $mean = ($order[$#order / 2] + $order[$#order / 2 + .5]) / 2;
-$barmark[ $mean * $size ] = '+'; # mean
+$barmark[ sum(@values) / @values * $size ] = '='; # average
+$barmark[ orderpos($#order / 2) ] = '+'; # mean
+defined and $_ = "\e[36m$_\e[0m" for @barmark;