my $a = 50;
my $b = 25;
my $c = $a ^ $b;
print "C: $c\n";