<>;eval'$\+=abs$_-$a[@a/2]for@a=sort{$a-$b}<>,map/ .*/g,@a;'x2;print