($a,$b,$c,$x,$y,$z)=glob<>.<>; printf sort{$a-$b}eval' (a+b)*x+(b+c)*y+(c+a)*z<<1, (a+b)*x+(b+c)*z+(c+a)*y<<1, (a+b)*y+(b+c)*z+(c+a)*x<<1, (a+b)*y+(b+c)*x+(c+a)*z<<1, (a+b)*z+(b+c)*x+(c+a)*y<<1, (a+b)*z+(b+c)*y+(c+a)*x<<1 '=~s/[a-z]/\$$&/gr