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