It's floating point rounding errors - $L is just a smidgin under 3, but appears to be exactly 2 & 4 for 10**2 & 10**4.

our $K ||= 1e3;
our $L ||=log10( $K );

print $L-3; # -4.44089209850063e-16
[download]