<>;$\+=abs$_-$y[@y/2]for@y=sort{$a-$b}glob<>;print