use Math::SigFigs; print FormatSigFigs($number, $digits);