my $A = 0;
my $B = 0;
my $C = 0;

# EXAMPLE A:
   if ($V == 0) { $A = 5;   $B = 39; $C = 0;   }
elsif ($V == 1) { $A = 0;   $B = -1; $C = 188; }
elsif ($V == 2) { $A = 101; $B = 18; $C = 19;  }

# EXAMPLE B:
my $LUT = "\6(\1\1\0\xBDf\x13\x14";
$A = vec($LUT, $V*3, 8)-1;
$B = vec($LUT, $V*3+1, 8)-1;
$C = vec($LUT, $V*3+2, 8)-1;

# EXAMPLE C:
($A,$B,$C)=map($_-40,unpack('x'x($V*3).'CCC',"-O(('\xe4\x8d:;"));