get;$_=sort +<<words;say sum .[+^-$_/2,$_/2]X/2