sub log2{ log( $_[0] ) / log( 2 ) }
sub log2ToLog10{ $_[0] / log2( 10 ) }

print log2ToLog10( 1024000 );;
308254.715559917