my $A = 1;
my $B = 7; 
my $C = 5;
my $D = 0;

$D = $A ? $B *= 2 : $C *= 9;

print "A=$A B=$B C=$C D=$D";