my $string = sprintf( "%.*f", $p, $number );