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