@$_=sort{$a-$b}glob<>for a,b;$\+=2*$_*($a[$i-2]+$a[$i++-1])for@b;print