my $preround = 0 + sprintf ("%.5f",$example);