my $A = 250; # Pizza price
my $B = 300; # Selling price
my $C = $B - $A; # Difference
print "A = $A \n B = $B \n C = $C \n";