sub f{sort{$a-$b}<>=~/\d+/g}$s+=$_ for@a=f;$\+=2*$_*($s-$a[$i++])for f;print