my $e = floor( POSIX::log10($num) / 3 );