my $x = 125;
my $l = log($x) / log(5);

print "LOG      == $l\n";
print "int(LOG) == ", int($l), "\n";

print "Are equal: ", ($l == int($l)) ? "true\n" : "false\n";