# Failed test at t/format_pref.t line 54. # got: '1000e-36' # expected: '1e-33' #### my $e = floor( log($num) / log(1000) );