sub rnd{
        my( $p, $n ) = @_;
            return sprintf "%.${p}f", $n + "0.5e-$p"
};;

print $_, ': ', rnd( 5, $_ ), qq{\n} for
    0.000005, 0.000015, 0.000025, 0.000035, 0.000045,
    0.000055, 0.000065, 0.000075, 0.000085, 0.000095,
    0.00009;;
__DATA__
5e-06: 0.00001
1.5e-05: 0.00002
2.5e-05: 0.00003
3.5e-05: 0.00004
4.5e-05: 0.00005
5.5e-05: 0.00006
6.5e-05: 0.00007
7.5e-05: 0.00008
8.5e-05: 0.00009
9.5e-05: 0.00010
9e-05: 0.00010