my @sign=( .... ); # Some combination of -1, 0 1
my @sum= map { $sign[$i] * $VAR1[$i] } (0..$#VAR1);
print eval join ' + ', @sum;