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