my ($x, $y, $base) = (23.5, 54.3, 2.0);
my $result = log($x + $y) / log($base);
print "result: $result\n";