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

print $L-3; # -4.44089209850063e-16