my $e    = floor( log($num) / log(1000) );