$sign = $B[0] =~ /^\s*-/ ? -1 : 1;
@result = map {$_*$sign} @B[1..$#B];