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